Hi,
wie kann ich ein Werte eines Arrays in einer externen Datei speichern und durch laden wieder in einem Stringrid ausgeben lassen?
ich bin bis jetzt soweit gekommen:
Delphi-Quellcode:
type TValue=record
a:integer ;
b:boolean ;
end;
type Tf= array[1..81] of TValue ;
var sp: file of Tf;
procedure TForm1.FormCreate(Sender: TObject);
begin
if fileexists('xxx.dat')
then assignfile(sp,'xxx.dat')
else
begin
assignfile(sp,'xxx.dat');
rewrite(sp);
closefile(sp);
end;
end;
procedure TForm1.Button1Click(Sender: TObject)
var hilf:Tf; x,y:integer ;
begin
reset(sp);
write(sp,hilf);
closefile(sp);
end;
procedure TForm1.Button2Click(Sender: TObject)
var hilf:Tf; x,y:integer ;
begin
reset(sp);
read(sp,hilf);
StringGrid1.Cells[x,y]:=hilf;
closefile(sp);
end;
das speichern funktioniert, die datei wird erzeugt und es steht auch was drin, aber die ausgabe klappt nicht, da kommt die fehlermeldung: Inkompatible Typen 'String' und 'Tf'
bitte helft mir...
Melvyn