[IM13]

Эта процедура берет имя файла(namefile) извлекае пулный путь
и открывает через полный путь этот файл и делает с ним нужные мне действия потом удаляет его и переименовывает созданный фаил в страрый

Код:

procedure TForm1.opfile(namefile:string);
var
fr,fw:textfile;
sr,sw,FullFileName,DirNameFile:string;
begin
 *FullFileName:= ExpandFileName(namefile);
 *assignfile(fr,FullFileName);
 *reset(fr);
 *DirNameFile:=ExtractFileDir(FullFileName);
 *assignfile(fw,DirNameFile+'\'+'demo.htm');
 *rewrite(fw);
 *sw:=extractfilename(namefile);
 *filename(sw,keyword);

 *if flag=0 then begin FirstFile:=namefile; flag:=1; end;

 *while (not eof(fr)) do
 * *begin
 * * *readln(fr,sr);
 * * *if (sr=edit2.Text) or (sr=edit3.Text) or (sr=edit4.Text)
 * * *then
 * * * *writeln(fw,sr+keyword)
 * * *else
 * * *writeln(fw,sr);
 * *end;
 * *memo1.Lines.Add(namefile);
 * *closefile(fr);
 * *closefile(fw);
 * *deletefile(FullFileName);
 * *renamefile('demo.htm',namefile);
 * *deletefile('demo.htm');
 * *end;

[s]Исправлено: Prisoner, 3:56 17-10-2004[/s]