TStringList в файл и из файла

← →
Fareader © (2002-01-21 11:43) [0]

Добрый день всем! Есть проблема: пытаюсь сохраниьт в файл содержимое TStringList, а когда пробую обратиться получаю ошибку. Чего делать?

var f:file of record
id:integer;
comment:TsrtingList;
end;

kk:record
id:integer;
comment:TStringList;
end;

begin
assignfile(f,path..);
reset(f);
readblock(f,kk,1);
showmessage(kk.comment.text); //Acces violation
close(f);
end;

← →
MBo © (2002-01-21 12:59) [1]

var comment:TstringList;

comment:=TsrtingList.CREATE;
comment.loadfromfile("filename.txt");
не стоит использовать тип. файл для неизвестно чего.

← →
Fareader © (2002-01-21 13:28) [2]

А если мне нужно хранить в файле 2 поля Integer и TStringList?
Create пробовал - не помогло.

← →
MBo © (2002-01-21 13:35) [3]

гораздо проще будет все хранить в 1 списке
slist.add(Inttostr(целое));

← →
Fareader © (2002-01-21 16:09) [4]

Я не работал со списками, можешь код подробнее бросить?

>kk:record
>id:integer;
>comment:TStringList;
>end;
Naskolko ya ponial
type Tkk=record id:integer; comment:TStringList; end; var kk:Tkk;
V takom sluchae pri
blockwrite(f,kk,sizeof(kk)) v fail zapishetsia celoe id i okazatel na ob"ekt v pamiati comment.
Esli ochen nujno imenno tipizirovanniy fail, a ne potoki, naprimer, to luchshe budet imho
type Tkk=record id:integer; comment:string[200]; end; ..... kk.comment:=MyStringList.Text; blockwrite(f,kk,sizeof(kk));
No eto cherepovato perepolneniem i voobshe neiziashno.

2 целых в конце списка

var comment:TstringList;

comment:=TstringList.CREATE;
for i:=1 to numstring do begin
s:=...
comment.add(s);
end;
comment.add(inttostr(i1);
comment.add(inttostr(i2);
comment.savetofile("filename.txt");
...
comment.loadfromfile("filename.txt");
for i:=0 to comment.count-3 do begin
s:=comment[i];
...
end;
i1:=strtoint(comment[comment.count-2]);
i2:=strtoint(comment[comment.count-1]);
...
comment.free;

TStringList в файл и из файла Найти похожие ветки