[Vold.khv]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Form1: TForm1;
  f,G:textfile;
  S : String;
  n:integer;
begin
AssignFile(F,'C:\Documents and Settings\Администратор\Рабочий стол\bla.txt') ; // путь и имя файла указываем свое
Reset(f);
  repeat
Readln(F,s);
  until EOF(f)=true ;

 n:=pos(' ',s);
 Delete(s,1,n);

 Assignfile(G,'C:\Documents and Settings\Администратор\Рабочий стол\test.txt');  //путь и имя файла указываем свое
 Rewrite(g);
 Write(g,s);
  closefile(f);
  closeFile(g);
end;
end.

Admin: Пользуемся тегами!