Autor Téma: Uložení dat do text souboru  (Přečteno 444 krát)

Offline Leo.xxl

  • Nováček
  • *
  • Příspěvků: 35
  • Karma: 0
Uložení dat do text souboru
« kdy: 03-02-2023, 15:36:25 »
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

Offline mirus

  • Mladík
  • **
  • Příspěvků: 74
  • Karma: 12
    • Verze Delphi: Delphi 10.2
Re:Uložení dat do text souboru
« Odpověď #1 kdy: 03-02-2023, 20:52:38 »
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.  

Offline Leo.xxl

  • Nováček
  • *
  • Příspěvků: 35
  • Karma: 0
Re:Uložení dat do text souboru
« Odpověď #2 kdy: 04-02-2023, 08:31:43 »
Dik
Kód: Delphi [Vybrat]
  1. If i < 21 then WriteLn(F,TmpStr) else Write(F,TmpStr);

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 7303
  • Karma: 44
    • Verze Delphi: W11 + D11.3.1
Re:Uložení dat do text souboru
« Odpověď #3 kdy: 04-02-2023, 10:42:49 »
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ý.
Win11 64b, Delphi 11.3.1, FireBird 4.01
Expert na kladenie nejasne formulovaných otázok.

Offline mirus

  • Mladík
  • **
  • Příspěvků: 74
  • Karma: 12
    • Verze Delphi: Delphi 10.2
Re:Uložení dat do text souboru
« Odpověď #4 kdy: 04-02-2023, 10:47:39 »
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é).