Witam
Problem jest taki że nie mogę odczytać textu TStringList z zapisanego wcześniej pliku binarnego, jest możliwość takiego zapisu czy trzeba inaczej?
type
TWayponts = record
WptLine: array [0 .. 100] of String[20];
Script :array [1 .. 165] of TStringList;
Count:Integer;
end;
procedure WWriteToBin(FileName: String);
var
F : file of TWayponts;
i : integer;
begin
AssignFile(F,FileName+'.wgr') ;
Rewrite(F) ;
try
Write (F, WayList) ;
finally
CloseFile(F) ;
end;
end;
I odczyt
procedure WReadFromBin(FileName: String);
var
Member: TWayponts;
Membe: TWayponts;
F : file of TWayponts;
I:Integer;
begin
AssignFile(F,FileName) ;
Reset(F) ;
try
while not Eof(F) do begin
with Form9 do
begin
ListBox2.Clear;
Read (F, Member) ;
for I := 0 to 5 do begin
Member.Script[i] := TStringList.Create; /// JEZELI DAM PRZED ODCZYTEM JEST BŁAD
Member.Script[I].SaveToFile('lol.txt'); /// Nic nie zapisuje (przykład)
end;
end;
end;
end;
finally
CloseFile(F) ;
end;
end;