f:file; или типа того

← →
bios (2003-02-05 00:20) [0]

привет всем
нужно вставмть запись в файл после определенного слова т.е.
вклинится между словами и добавить свою запись.
подскажите примерчиком господа.

← →
Интересующийся (2003-02-05 03:51) [1]

Примерчик писать влом =) смысл: открываешь один файл на чтение, второй (новый) - на запись. Из первого коприуешь во второй, где надо вставляешь... Потом второй переименовываешь в первый =)))

← →
Poirot (2003-02-05 14:37) [2]

Addon->>>>
WinAPI -> см. CreateFile и See Also в нём

← →
mate (2003-02-05 15:05) [3]

Открываешь файл хоть в тоже мемо и делаешь insert(что, во что, куда). и сохраняешь.
memo1.loadfromfile("1.txt")->insert->memo1.savetofile("1.txt")

← →
bios (2003-02-05 18:52) [4]

а если удалить эту запись,опять с одного в другой
копировать.других вариантов нет.примерчик если не влом.

← →
bios (2003-02-06 19:50) [5]

запись нужную мне я нашел так
if (pos("program",st)>0) then
но удалить ее не получается
и примеров не могу найти
ну подскажите господа

← →
MBo (2003-02-06 19:59) [6]

delete
insert

← →
bios (2003-02-06 23:26) [7]

после удаления "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 23:35) [8]

у тебя Delete(st, 1, Length(st));
убирает всю строку

← →
bios (2003-02-06 23:41) [9]

так не удаляет но текст дальше не идет
Delete(s,3,1)

← →
MBo (2003-02-06 23:45) [10]

S.add вынеси из if-блока

← →
bios (2003-02-06 23:54) [11]

вынес ,не идет в файл текст

← →
Palladin (2003-02-07 00:03) [12]

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-07 00:15) [13]

← →
MBo (2003-02-07 00:22) [14]

pos - функция, значит, кое-что возвращает.
Может, стоит использовать это значение?

← →
Palladin (2003-02-07 00:22) [15]

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:32) [16]

спасибо ребята а то я вокруг да около теперь не забуду эту
delete

f:file; или типа того Найти похожие ветки