[ALexandr555]

как удалить из .txt текст в каждой строчке до сивола %+ к примеру

[v1s2222]

Первое, что пришло на ум...

Код:

var
  str, str2: TStringList;
  i: integer;
begin
  str:=TStringList.Create;
  str2:=TStringList.Create;
  str.LoadFromFile('myfile.txt');
  for i:=0 to str.count-1 do
    str2.Add(Copy(str.Strings[i], 1, pos('%', str.Strings[i])-1));

  str2.Text:=Trim(str2.Text);
  str.Free;
  Showmessage(str2.Text);
  str2.Free;

Это чисто "для отмазки", но если надо хоть как-то,то и так сойдет. 1 число все-таки.
ЗЫ в файле в каждой строчке должен быть "%", иначе работать будет не совсем правильно.

[v1s2222]

Вот второй вариант... для паскаля...

Код:

var
  f: TextFile;
  s, s2: String;
begin
  AssignFile(f, 'myfile.txt');
  {$I-}
  reset(f);
  if(IOResult <> 0) then
    raise; // error
  {$I+}
  s2:='';
  While(not(EOF(f))) do begin
    ReadLn(f, s);
    s2:=Trim(s2+copy(s, 1, pos('%', s)-1));
  end;
  CloseFile(f);
  showmessage(s2);

Как-то так. Могут быть ошибки, но думаю сможешь сам исправить.