[Alegun]

Сообщение от Страдалецъ

Простейший вариант:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 sl: TStrings;
 i, N: integer;
 b: extended;
begin
 Memo1.Clear;
 N:= 500;
 sl:= TStringList.Create;
 sl.LoadFromFile('Текст.txt');
 sl.DelimitedText:= sl.Text;
 for i := 0 to sl.Count-1 do
  if TryStrToFloat(sl[i], b) then 
   if b < N then Memo1.Lines.Add(FloatToStr(b-1))
    else Memo1.Lines.Add(FloatToStr(b))
     else Memo1.Lines.Add(sl[i]);
sl.Free;
end;