Also ich hab das problem, dass der mir die zeilen im String nicht so speichert wie sie gespeichert werden müssen: statt Name;Vorname;Adresse;
Name;Vorname;Adresse; macht es
Vorname;Adresse;Name;Vorname;Adresse..
Delphi-Quellcode:
procedure TForm1.BtSpeichernClick(Sender: TObject);
var
Textdatei: textfile;
i,j: integer;
begin
if savedialog1.Execute=true then
begin
assignfile (textdatei, savedialog1.FileName);
rewrite (textdatei);
for i:=1 to StringGrid1.Rowcount-1 do
for j:=1 to StringGrid1.ColCount-1 do
begin
If j = StringGrid1.ColCount then
writeln(textdatei,stringgrid1.cells[j,i]+';')
else
write (textdatei,stringgrid1.cells[j,i]+';');
end;
closefile (textdatei);
end;
end;
ich finde nur den Fehler nicht...