var
    i: integer;
    s: string;
    f: TextFile;
begin
    s := 'ABC';
    for i := 1 to 40 do
        s := s   ' ';
    s := s   'Def';
    AssignFile(f,'c:\test.txt');
    rewrite(f);
    writeln(f,s);
    CloseFile(f);
end;

引言: 請問各位前輩，以下的功能要如何用Delphi完成?謝謝 S:='ABC' 40個連續的空白 'Def' 之後將 S 的字串寫入文字檔中。

  S:=StringOfChar(' ', 40);