| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сохранение listBox в файл. [D7, 2000]
XTD © (2006-10-03 11:39:00)Писал я недавно одну программку и там сохранял каждый раз при FormClose настройки в файл. Так вот когда я выполнял: ListBox2.Items.SaveToFile(ExtractFileDir(Application.ExeName)+'\Options');, файл options перезаписывался заново, все строки которые были там ранее удалялись и записывались новые из ListBox2. Теперь пишу еще одну прогу, и когда выполняю … SaveToFile… , то в файл добавляются строки, остаются старые а ниже добавляются новые.
Почему так получается? Мне нужно чтобы файл перезаписывался заново или чтобы при записи новых строк удалялись старые. Что мне посоветуете? Почему такой глюк выходит?
Elen (2006-10-03 13:10:00) [1]Удалено модератором
Примечание: Флудить завязываем
Игорь Шевченко (2006-10-03 13:09:00) [2]Officeman (03.10.06 13:01) [13]
Шутка понравилсь. Оставляю за собой право пошутить два раза.
saxon (2006-10-03 13:05:00) [3]
> Palladin © (03.10.06 13:03) [14]
Во во, а то автора давно не видно, наверное применять начал. :)
Palladin (2006-10-03 13:03:00) [4]это ужасная шутка и подобный ужас не стоит постить, особеннов Начинающим
Officeman (2006-10-03 13:01:00) [5]2Игорь Шевченко
чё. шутка не понравилась.
а зря).
Palladin (2006-10-03 13:00:00) [6]Пардон конечно, но очки все таки нужны. Беда в том что авторы разные. :)
Elen (2006-10-03 12:58:00) [7]
> Аж два раза встречается
В приведенном коде??? Пардон, я чего то не понимаю...? <8-(
saxon (2006-10-03 12:55:00) [8]Да ненадо пятикратные все и так видно.
> XTD © (03.10.06 11:39)
> Теперь пишу еще одну прогу, и когда выполняю … SaveToFile…
Palladin (2006-10-03 12:55:00) [9]Аж два раза встречается
Elen (2006-10-03 12:53:00) [10]
> saxon
А где в посте этот метод? (Щасб минуточку, очки одену пятикратные...:-))
saxon (2006-10-03 12:50:00) [11]
> Elen © (03.10.06 12:45) [5]
> Во-вторых Почему не пользуешся SaveToFile?
С чего такой вывод?
Игорь Шевченко (2006-10-03 12:48:00) [12]
> кусок из моей проги
никогда больше не пости
Elen (2006-10-03 12:45:00) [13]
> XTD
Во-первых Проверь не загружется ли данные из файла в список где-нибудь раньше
Во-вторых Почему не пользуешся SaveToFile?
Officeman (2006-10-03 12:41:00) [14]кусок из моей проги. всё пишется как надо.
посмотри может найдёшь у тебя ошибку
procedure TForm1.save1Click(Sender: TObject);
var
fsave,f,f1:textfile;
x,y,go,sso,idik,yy:integer;
Sx,Sy,sss1,sss2,duru,p999,s:String;
Ch:char;
begin
header.caption:='СОХРАНИТЬ ПРАЙС-ЛИСТ';
form1.refresh;
sso:=0;
p999:='';
if SaveDialog1.Execute then begin
duru:=extractfilename(SaveDialog1.FileName);
sx:='';
for go:=0 to length(duru) do begin
if duru[go]='.' then begin
sso:=sso+1;
if sso=1 then begin
p999:=Copy(duru,0,go-1);
end;
end;
end;
if p999='' then begin
p999:=duru;
end;
assignfile (fsave,p999+'.xxx');
rewrite (fsave);
For X:=0 to LV.Items.Count-1 do
begin
sx:='';
idik:=0;
//формируем строку для записи
sx:=LV.Items.Item[x].Caption+';'; //
For y:=0 to LV.Columns.Count-2 do
begin
sx:=TRIM(sx+LV.Items.Item[x].SubItems[y]+';');
end;
writeln (fsave, Sx);
end;
closefile (fsave);
end;
end;
Ketmar (2006-10-03 12:22:00) [15]17-я строка опять всем подгадила.
XTD (2006-10-03 11:43:00) [16]Сам мучаюсь, не пойму в чем проблема…
:-(
Palladin (2006-10-03 11:42:00) [17]такого не бывает
| |
