Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

f:file; или типа того [D5]

bios © (2003-02-05 00:20:00)
привет всем
нужно вставмть запись в файл после определенного слова т.е.
вклинится между словами и добавить свою запись.
подскажите примерчиком господа.

bios (2003-02-07 00:32:00) [1]
спасибо ребята а то я вокруг да около теперь не забуду эту
delete

MBo (2003-02-07 00:22:00) [2]
pos - функция, значит, кое-что возвращает.
Может, стоит использовать это значение?

Palladin (2003-02-07 00:22:00) [3]
ss:="program";
s.clear;
while not eof(f) do
begin
readln(f,st);
if pos(ss,st)>0 then
begin
delete(st,pos(ss,st),length(ss));
end
s.add(st);
end;

bios (2003-02-07 00:15:00) [4]
>Palladin © заработало
но я ни как не могу коректно удалить "program"
то сначала строки уберутся символы то сзаду

Palladin (2003-02-07 00:03:00) [5]
ss:="program";
s.clear;
while not eof(f) do
begin
readln(f,st);
if pos(ss,st)>0 then
begin
поработали со строкой;
end
s.add(st);
end;

ну если так не пойдет, то что то ты не правильно делаешь...

bios (2003-02-06 23:54:00) [6]
вынес ,не идет в файл текст

MBo (2003-02-06 23:45:00) [7]
S.add вынеси из if-блока

bios (2003-02-06 23:41:00) [8]
так не удаляет но текст дальше не идет
Delete(s,3,1)

MBo (2003-02-06 23:35:00) [9]
у тебя Delete(st, 1, Length(st));
убирает всю строку

bios (2003-02-06 23:26:00) [10]
после удаления "program"текст в файл "rrf.txt"не попадает
подскажите
while not Eof(F) do
begin
Readln(F, st);
if pos("program",st)>0 then
begin
Delete(st, 1, Length(st));
s.add(st);
end;
end;
CloseFile(F);
s.savetofile("rrf.txt");

MBo (2003-02-06 19:59:00) [11]
delete
insert

bios (2003-02-06 19:50:00) [12]
запись нужную мне я нашел так
if (pos("program",st)>0) then
но удалить ее не получается
и примеров не могу найти
ну подскажите господа

bios (2003-02-05 18:52:00) [13]
а если удалить эту запись,опять с одного в другой
копировать.других вариантов нет.примерчик если не влом.

mate (2003-02-05 15:05:00) [14]
Открываешь файл хоть в тоже мемо и делаешь insert(что, во что, куда). и сохраняешь.
memo1.loadfromfile("1.txt")->insert->memo1.savetofile("1.txt")

Poirot (2003-02-05 14:37:00) [15]
Addon->>>>
WinAPI -> см. CreateFile и See Also в нём

Интересующийся (2003-02-05 03:51:00) [16]
Примерчик писать влом =) смысл: открываешь один файл на чтение, второй (новый) - на запись. Из первого коприуешь во второй, где надо вставляешь... Потом второй переименовываешь в первый =)))

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »