Uložení dat do text souboru

[Leo.xxl]

Dobrý den.
Proč tam mám ten 23 řadek?
Jak se ho zbavim?
Děkují

Kód: Delphi [Vybrat]

1. SaveDialog1.FileName := 'txt';
2.  if SaveDialog1.Execute then
3.     begin
4.          AssignFile(F, SaveDialog1.FileName + '.txt');
5.          Rewrite(F);
6.          for i := 0 to 21 do
7.              begin
8.                   TmpStr := StringGrid1.Cells[0,i];
9.                   WriteLn(F,TmpStr);
10.              end;
11.     CloseFile(F);
12.     end;                          
13.  

https://postimg.cc/gn4Wnxmc

[mirus]

Zapíče proměnou a přidá odřádkování (#13#10)

Kód: Delphi [Vybrat]

1. ...
2.   WriteLn(F,TmpStr);
3. ...
4.  

Zapíše proměnou, ale neodřádkuje.

Kód: Delphi [Vybrat]

1. ...
2.   Write(F,TmpStr);
3. ...
4.  

[Leo.xxl]

Dik

Kód: Delphi [Vybrat]

1. If i < 21 then WriteLn(F,TmpStr) else Write(F,TmpStr);

[Stanislav Hruška]

Zapíče proměnou a přidá odřádkování (#13#10)

Občas sa podarí veľmi pekný preklep   Aj ja som mal taký.

[mirus]

Myslím, že se to spíše blíží nějakému hezkému výrazu ve slovenštině.  (No, už bylo večer a oči unavené).