Registriert seit: 25. Apr 2003
Ort: Graz
2.234 Beiträge
Delphi 2006 Architect
|
Re: I/O-Fehler-998
17. Mär 2007, 12:20
Delphi-Quellcode:
var
FaDatei: file of TAlles;
Buf: TAlles;
begin
if SaveDialog1.Execute then { Dialog zum Speichern anzeigen }
begin
AssignFile(FaDatei, SaveDialog1.FileName);
Rewrite(FaDatei); { Ausgabedatei öffnen }
Write(FaDatei, Buf);
CloseFile(FaDatei);
end;
end;
und zum laden
Delphi-Quellcode:
var i,e, f : Integer;
FaDatei1: file of TAlles;
Alles1 : Talles;
begin
if OpenDialog1.Execute then { Dialog zum Öffnen anzeigen }
begin
AssignFile(FaDatei1, OpenDialog1.FileName);
Reset(FaDatei1); { Eingabedatei öffnen }
Read(FaDatei1, Alles1);
CloseFile(FaDatei1);
end;
for i := 0 to 29 do
for e := 0 to 21 do
Memo1.Lines.add(alles1.vert_ast[i][e]);
for i := 0 to 30 do
Memo1.Lines.add(IntToStr(alles1.vert_datum[i].vtjahr));
for i := 0 to 30 do
for e := 0 to 10 do
Memo1.Lines.add( IntToStr(alles1.vert_datum[i].vtproz[e]));
for i := 0 to 14 do
Memo1.Lines.add( alles1.mod_[i].und_bez);
for i := 0 to 14 do
for e := 0 to 30 do
Memo1.Lines.add( alles1.mod_[i].und_st[e].st_bez);
for i := 0 to 14 do
for e := 0 to 30 do
for f := 0 to 10 do
Memo1.Lines.add(IntToStr(alles1.mod_[i].und_st[e].st_jahr[f]));
for i := 0 to 14 do
Memo1.Lines.add(alles1.mod_[i].und_st[e].st_vert);
for i := 0 to 14 do
for e := 0 to 30 do
for f := 0 to 10 do
Memo1.Lines.add(IntToStr(alles1.mod_[i].und_st[e].st_aufk[f]));
Label1.caption := IntToStr(Memo1.Lines.Count);
Nico Müller
|
|
Zitat
|