Текущий архив: 2006.10.22;
Скачать: CL | DM;
Вниз
Сохранение listBox в файл. Найти похожие ветки
← →
XTD © (2006-10-03 11:39) [0]Писал я недавно одну программку и там сохранял каждый раз при FormClose настройки в файл. Так вот когда я выполнял: ListBox2.Items.SaveToFile(ExtractFileDir(Application.ExeName)+"\Options");, файл options перезаписывался заново, все строки которые были там ранее удалялись и записывались новые из ListBox2. Теперь пишу еще одну прогу, и когда выполняю … SaveToFile… , то в файл добавляются строки, остаются старые а ниже добавляются новые.
Почему так получается? Мне нужно чтобы файл перезаписывался заново или чтобы при записи новых строк удалялись старые. Что мне посоветуете? Почему такой глюк выходит?
← →
Palladin © (2006-10-03 11:42) [1]такого не бывает
← →
XTD © (2006-10-03 11:43) [2]Сам мучаюсь, не пойму в чем проблема…
:-(
← →
Ketmar © (2006-10-03 12:22) [3]17-я строка опять всем подгадила.
← →
Officeman (2006-10-03 12:41) [4]кусок из моей проги. всё пишется как надо.
посмотри может найдёшь у тебя ошибку
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;
← →
Elen © (2006-10-03 12:45) [5]
> XTD
Во-первых Проверь не загружется ли данные из файла в список где-нибудь раньше
Во-вторых Почему не пользуешся SaveToFile?
← →
Игорь Шевченко © (2006-10-03 12:48) [6]
> кусок из моей проги
никогда больше не пости
← →
saxon (2006-10-03 12:50) [7]
> Elen © (03.10.06 12:45) [5]
> Во-вторых Почему не пользуешся SaveToFile?
С чего такой вывод?
← →
Elen © (2006-10-03 12:53) [8]
> saxon
А где в посте этот метод? (Щасб минуточку, очки одену пятикратные...:-))
← →
saxon (2006-10-03 12:55) [9]Да ненадо пятикратные все и так видно.
> XTD © (03.10.06 11:39)
> Теперь пишу еще одну прогу, и когда выполняю … SaveToFile…
← →
Palladin © (2006-10-03 12:55) [10]Аж два раза встречается
← →
Elen © (2006-10-03 12:58) [11]
> Аж два раза встречается
В приведенном коде??? Пардон, я чего то не понимаю...? <8-(
← →
Palladin © (2006-10-03 13:00) [12]Пардон конечно, но очки все таки нужны. Беда в том что авторы разные. :)
← →
Officeman (2006-10-03 13:01) [13]2Игорь Шевченко
чё. шутка не понравилась.
а зря).
← →
Palladin © (2006-10-03 13:03) [14]это ужасная шутка и подобный ужас не стоит постить, особенно в Начинающим
← →
saxon (2006-10-03 13:05) [15]
> Palladin © (03.10.06 13:03) [14]
Во во, а то автора давно не видно, наверное применять начал. :)
← →
Игорь Шевченко © (2006-10-03 13:09) [16]Officeman (03.10.06 13:01) [13]
Шутка понравилсь. Оставляю за собой право пошутить два раза.
← →
Elen © (2006-10-03 13:10) [17]Удалено модератором
Примечание: Флудить завязываем
Страницы: 1 вся ветка
Текущий архив: 2006.10.22;
Скачать: CL | DM;
Память: 0.5 MB
Время: 0.04 c
