Hi Leutz,
Bin grade ein Programm am schreiben,
haben in der Schule typisiertes speichern, per Assignfile(.....) und Rewrite gemscht.
Ebenso haben wir untypisiertes speichern per SaveDialog(SaveToFile) gemacht.
Jetzt wollt ich fragen ob man denn beides miteinander verbinden kann!
Ich möchte Daten aus einem StringGrid speichern, allerdings typisiert und mit einem SaveDialog!
Geht das???
Wenn ja, wie??
Danke,
Viele Grüße The_Voice
Hier ein Ausschnitt des Quellcodes:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
| procedure TForm1.BitBtn3Click(Sender: TObject);
var datei : File of TListe;
i : integer;
Liste : TListe;
begin
AssignFile(Datei,'C:\Temp\Test.txt');
Rewrite(Datei);
For i:= 1 to StringGrid1.Rowcount+1 do
begin
Liste.Datum :=(StringGrid1.Cells[0,i]) ;
Liste.Vorname := (StringGrid1.Cells[1,i]) ;
Liste.Name := (StringGrid1.Cells[2,i]) ;
Liste.Strasse := (StringGrid1.Cells[3,i]) ;
Liste.Wohnort := (StringGrid1.Cells[4,i]) ;
Write(Datei,Liste);
end;
Closefile(Datei);
end; |
Hier hätte ich gern ein SAveDialog eingefügt, hab rumprobiert aber es hat noch nicht gefunzt!!
