DungeeBug hat mir folgenden Code gegeben (DANKE!) aber da ist noch irgentwo ein haken.
Delphi-Quellcode:
procedure TFormHaupt.Speichern1Click(Sender: TObject);
var
MyStream : TFileStream;
i : integer;
MyDaten : TDatei;
begin
MyStream.Create('C:\text.txt',fmCreate);
FOR i := 1 TO 30 DO
BEGIN
// Daten einlesen
MyDaten.Name := StringGrid1.Cells[0,i];
MyDaten.Nummer := StrToInt(StringGrid1.Cells[1,i]);
MyDaten.Mobil := StrToInt(StringGrid1.Cells[2,i]);
MyDaten.Adresse := StringGrid1.Cells[3,i];
MyDaten.Mail := StringGrid1.Cells[4,i];
// Daten schreiben
MyStream.Write(MyDaten.Name[1],SizeOf(MyDaten.Name));
MyStream.Write(MyDaten.Nummer[1],SizeOf(MyDaten.Nummer));
MyStream.Write(MyDaten.Mobil[1],SizeOf(MyDaten.Mobil));
MyStream.Write(MyDaten.Adresse[1],SizeOf(MyDaten.Adresse));
MyStream.Write(MyDaten.Mail[1],SizeOf(MyDaten.Mail));
END;
MyStream.Free;
end;
delphi meckert, dass es irgend einen arrey-typ braucht (oder so ähnlich).
dopeline
