如何在一定时间内一个一个输出字符,

Question

想用delphi中的console application选项输出字符,而且是在单位时间或隔一段时间连续输出

Answer 1

program Project1;{$APPTYPE CONSOLE}uses
  SysUtils, Windows;var
  I, J, K : integer;begin
  { TODO -oUser -cConsole Main : Insert code here }
  I := 10;
  while I <> 0 do begin
    K := GetTickCount div 1000;
    if J <> K then begin
      WriteLn(InttoStr(I));
      J := K;
      Dec(I);
    end;
  end;
end.

Answer 2

谢了,我已经又有了源代码了不过你的也不错呀,
program Project3;{$APPTYPE CONSOLE}uses
  SysUtils;
 var
 i,f:integer;
 s,s1,s2:string;begin
s:='刚刚设计的一个有趣的程序,自己感觉非常不错,代码还是满简单的吗';
s1:='下面是原代码,大家喜欢就拿去看看';
s2:='//';
  f:=length(s);   for f:=1 to f do
   begin
 write(s[f]);
    sleep(100); end;
  writeln('');
  i:=length(s1); for i:=1 to i do
begin write(s1[i]); sleep(100);end;
writeln('');
writeln(s2);
writeln('program Project3;');writeln ('{$APPTYPE CONSOLE}');writeln('uses');
  writeln('SysUtils;');
 writeln('var');
 writeln('i,f:integer;');
 writeln('s,s1,s2:string;');writeln('begin');
writeln('s:=刚刚设计的一个有趣的程序,自己感觉非常不错,代码还是满简单的吗;');
writeln('s1:=下面是原代码,大家喜欢就拿去看看;');
writeln('s2:=//;') ;
  writeln('f:=length(s);');   writeln('for f:=1 to f do');
   writeln('begin');
 writeln('write(s[f]);');
    writeln('sleep(100);'); writeln('end;');
  writeln('writeln('');');
  writeln('i:=length(s1);'); writeln('for i:=1 to i do');
writeln('begin'); writeln('write(s1[i]);'); writeln('sleep(100);');writeln('end;');
writeln('writeln('');');
writeln('writeln(s2);');
 writeln('readln;') ;
writeln('end');
 readln; { TODO -oUser -cConsole Main : Insert code here }
end.