Работа с потоком Опции

[18192123]

В поток записана последовательность целых чисел. Найти минимум и максимум и поменять их местами, не используя дополнительных потоков.

Начала я с того, что попыталась сосчитать первое число, чтоб было с чем сравнивать...
Проблема в том, что если в файле одно число - то оно фиксируется и выводиться (в компонент Memo) как надо, но если больше - приложение вылетает с ошибкой " '1-е число из файла' is not a valid integer value"..
структура файла:
11
22
56
...
и т.д

Объясните, как исправить, чтоб отработало без ошибок?

procedure TForm1.Convert;
var
  i, j, k: Word;
  c: Char;
  l,numb,min,max: Integer;
  str:string;
  f: Boolean;
  S: TStream; // переменная потокового типа
begin
  S := TFileStream.Create(FName, fmOpenReadWrite);
  //загружаем в поток типа FileStream содержимое файла FName
  //тело алгоритма
  with S do
  begin
    Position := 0; // установка указателя потока в начало
    i := 0;
    k := Size; // в k - размер потока в байтах
    Read(c,1);
    j:=1;
    while (c<>#10)and(i<=k-1) do
      begin
          inc(i);
          inc(j);
          str:=str+c;
          read(c,1);
      end;
    min:=StrToInt(str);
 
    memo1.Lines.Add(IntToStr(min));
    end
end;

Сообщение отредактировано: 18192123 - 24.04.2008 14:14

[18192123]

Вот моя попытка разобрать случай, если кол-во цифр в максим. и миним. элементах не равно: пока сделала для случая если pos_max>pos_min...

Перезапись происходит, но на первоначальном месте максимального элемента я получаю минимальный элемент с некоторыми цифрами от максимального...

Объясните пожалуста, как это исправить?

procedure TForm1.Convert;
var
  i, j, k, pos_max, pos_min: integer;
  c: Char;
  numb,min,max,dif: Integer;
  str,help:string;
  S: TStream; // переменная потокового типа
begin
  S := TFileStream.Create(FName, fmOpenReadWrite);
  numb:=0;  dif:=0;
  min := MaxInt;
  max := -MaxInt;
  pos_max:=0;
  pos_min:=0;
  help:='';
with S do begin
    Position := 0; i := 0;
    k := Size;
    while (i<k) do
      begin
        read(c,1);
        inc(i);
        help:=help+c;
      end;
    edit1.Text:=inttostr(k);
    Position := 0; i := 0;
    k := Size;

    repeat
      c := #0; str := '';
      while (i < k) do begin
        read(c, 1);
        if c = #13 then break;

        inc(i); str := str + c;
      end;

      numb:=StrToInt(str);
      if numb<min then begin
        min:=numb; pos_min := Position - length(str) - 1;
      end;
      if numb>max then begin
        max:=numb; pos_max := Position - length(str) - 1;
      end;

      Read(c, 1); // read #10
    until Position = Size;

    dif:=Length(IntToStr(max)) - Length(IntToStr(min));
    if dif=0 then
      begin
        Position := pos_min;
        str := IntToStr(max);
        for i := 1 to length(str) do begin
          Write(str[i], 1);
        end;
        Position := pos_max;
        str := IntToStr(min);
        for i := 1 to length(str) do begin
          Write(str[i], 1);
        end;
      end {end if dif=0}
      else
        begin
        if pos_max > pos_min then
          begin
            position:=pos_min+dif;
            for i:=pos_min+2 to pos_max-1 do
              Write(help[i], 1);
            Position := pos_min;
            str := IntToStr(max);
            for i := 1 to length(str) do
              Write(str[i], 1);
            Position := pos_max;
            str := IntToStr(min);
            for i := 1 to length(str) do
              Write(str[i], 1);

          end {end if pos_max > pos_min}
        else
          begin
          {дописать}
          end; {end else pos_max > pos_min}
        end; {end else of dif=0}
  end; // with

  S.Destroy;
  memo1.Lines.LoadFromFile(FName);

end;