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

[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

[volvo]

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

Вот так:

while (c<>#13)and(i<=k-1) do // <--- Признак конца строки - это #13#10, а не наоборот...

[18192123]

Вот так:

while (c<>#13)and(i<=k-1) do // <--- Признак конца строки - это #13#10, а не наоборот...

Спасибо большое!)

Теперь я нахожу максимальный-минимальный элементы последовательности..Вроде делаю аналогично..А выдаётся та же ошибка..Опять я что-то упустила...Объясните пожалуста!

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<>#13)and(i<=k-1) do
      begin
          inc(i);
          inc(j);
          str:=str+c;
          read(c,1);
      end;
    min:=StrToInt(str);
    max:=StrToInt(str);
    Position := i+1; // установка указателя потока после 1-го элемента
    while i <> k do
    begin
      Read(c, 1);
      inc(i);
      j := 1;
      while (c <> #13) and (i <= k - 1) do
      begin
        str:=str+c;
        Read(c, 1);
        inc(i);
        inc(j);
      end;
        numb:=StrToInt(str);
        if numb<min then min:=numb;
        if numb>max then max:=numb;
   
  end; {end while i<>k}
    // загружаем в Memo1 содержимое преобразованного файла
    //Memo1.Lines.LoadFromFile(FName);
    memo1.Lines.Add(IntToStr(min)); {ну это просто для собственного контроля) }
    memo1.Lines.Add(IntToStr(max));
    end
end;