Сравнение данных

[Terikon]

1)Нужно отсеять те данные если в строке присутствует 0 (помечено красным цветом)
2)Нужно сравнить и найти максимально значение (помечено зелёным)
3)Скопировать id максимального значения в стринг (помечено синим)


Пример
До обработки
id=279
800
2
id=22
900
0
id=79
700
1
id=2279
700
2

После обработки
279 (id максимального значения)

[Stilet]

Ну дык в чем траблы?
Допустим ты открыл файл типа Text в переменку F:

var i,r;integer; s:string;
while not eof(f) do begin
 readln(f,s); i:=pos('=',s); s:=copy(s,i,length(s)-i); val(i,s,r);
  if i>maxID then maxID:=i;
 if not eof(f) then begin
  readln(f,s);
  if s='0' then // этсеиваем
 end
 if not eof(f) then begin
  readln(f,s);
  В s считали зеленое - сам подумай что с ним делать
 end

end;

[Terikon]

Текст загружаю из мемо, ошибка выскакивает вот здесь while not eof(f) do begin

[Stilet]

Читай мой пост внимательно: Допустим ты открыл файл типа Text в переменку F:

[Terikon]

Так загружаю, всё равно выскакиевает ошибка

 var
f : TextFile;
 begin
AssignFile(f, '123.txt');
  ReWrite(f);

[Пепел Феникса]

а может тебе его Resetить надо а не ReWriteить?
(а то ты его очищаешь зачем-то)

[Terikon]

Reset ставил, ошибка выскакивает здесь readln(f,s); i:=pos('=',s); s:=copy(s,i,length(s)-i); val(i,s,r);

[Serge_Bliznykov]

s:=copy(s,i+1,length(s)-i);

[Terikon]

Serge_Bliznykov, ошибка осталась всё там же

[Serge_Bliznykov]

ну а проверять наличие значка "=" в строке кто будет?!

readln(f,s); 
i:=pos('=',s);
if i>0 then begin
  s:=copy(s,i+1,length(s)-i); 
  val(i,s,r);
end;

вот только не поможет это Вам...
Т.к. решить частный вопрос по преобразованию строки в число - не проблема.
А проблема в том, ЧТО ИМЕННО находится в Вашем текстовом файле!
структура Вашего файла СТРОГО следующая??:
<строчка с ID=1>
<1-е значение аттрибута1>
<1-е значение аттрибута2>
...
<строчка с ID=N>
<N-е значение аттрибута1>
<N-е значение аттрибута2>

нужно найти максимальное значение аттрибута1 при условии, что аттрибут2 не равен 0
Так?
и это всё на Дельфи?
в строчках с аттрибутами СТРОГО ОБЯЗАТЕЛЬНО ЧИСЛА?!

тогда я предлагаю такой код:

procedure TForm1.Button1Click(Sender: TObject);
var
   ts: TStringList;
   s : string;
   i : integer;
   v, MaxV  : integer;
   MaxID : string;
begin
  ts := TStringList.Create;
  ts.LoadFromFile('123.txt');
  if ts.Count<2 then begin
      Application.MessageBox(
        'в файле недостаточно строк',
        'Ошибка',MB_ICONSTOP or MB_OK);
      ts.Free;
      Exit;
  end;
  MaxID := '';
  MaxV := -1*MaxInt;
  for i:=0 to (ts.Count div 3)-1 do begin
    if pos('=',ts.Strings[i*3])=0 then begin
      Application.MessageBox(
       PChar('не обнаружен необходимый id в строке '+InttoStr(i*3)),
        'Ошибка',MB_ICONSTOP or MB_OK);
      ts.Free;
      Exit;
    end;
    try
      s := Trim(ts.Strings[i*3+2]);
      v := StrToInt(s);
      if v<>0 then begin
        s := Trim(ts.Strings[i*3+1]);
        v := StrToInt(s);
        if v>MaxV then begin
          MaxV := v;
          s := ts.Strings[i*3];
          MaxID := Copy(s,Pos('=',s)+1,Length(s)-Pos('=',s));
        end;
      end;
    except
      Application.MessageBox(
       PChar('Неверное число в строке '+s),
       'Ошибка',MB_ICONSTOP or MB_OK);
      ts.Free;
      Exit;
    end;
  end;
  Application.MessageBox(
    PChar('Максимальное число = '+IntToStr(MaxV)+' в блоке с ID='+MaxID),
    'Сообщение',MB_OK);
  ts.Free;
end;