1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

procedure TForm1.speichern(Sender: TObject);
var zeile: string;
var Tdatei: textfile;
var i: integer;
begin
 if SaveDialog1.Execute then
 begin
  if druck=1 then
  begin
   SaveDialog1.Filter:='Text- Dateien (*.txt)|*.txt|CSV- Dateien (*.csv)|*.csv';
   AssignFile(Tdatei,SaveDialog1.Filename);
   Rewrite(Tdatei);
   with StringGrid1 do
   begin
    writeln(TDatei,'HSP-Übersetzung durch FPA-Helfer');
    for i:=1 to lines-1 do
    begin
     zeile:=Cells[0,i]+';'+Cells[1,i]+';'+Cells[2,i]+';'+Cells[3,i]+';'+Cells[4,i]+';'+Cells[5,i]+';';
     writeln(Tdatei,zeile);
    end;
   end;
   CloseFile(TDatei);
  end;
 end;
end;