Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];

Вниз

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]

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


 
yaJohn   (2002-01-21 16:25) [5]

>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.


 
MBo   (2002-01-21 17:01) [6]

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;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.015 c
3-18731
der
2002-01-10 09:42
2002.02.07
Периодически возникает ошибка. Insufficient memory for this operation.


14-18952
p@s
2001-12-18 12:17
2002.02.07
Пропали хинты


1-18844
PEC
2002-01-22 12:25
2002.02.07
файлы !


1-18907
lipskiy
2002-01-24 01:29
2002.02.07
Кто видел где-нибудь combobox со строками типа Glyph?


1-18900
Роман Василенко
2002-01-23 19:19
2002.02.07
Минимизация в Quick Report





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский