1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Текстовы файл среднее арифметическое

Тема в разделе "Delphi - программирование", создана пользователем ast, 28 июн 2006.

Статус темы:
Закрыта.
  1. ast

    ast Гость

    Репутация:
    0
    Значит такой вопрос:
    Я беру текстовый файл, в котором записаны числа, причем расположены они в беспорядке, то есть в первой строчке находятся, например, 5 чисел, во второй строчке - 21 число. Так вот, как мне их всех прочитать? Я не знаю... Если бы все числа были ли бы записаны в одну строчку, то можно было бы запустить цикл до конца файла и написать read() . Если каждое число было бы написано с новой строчки, то написался бы readln() . Как быть в этом случае???
     
  2. zubr

    zubr Гость

    Репутация:
    0
    Важно, чтобы между числами был какой нибудь разделитель, к примеру пробел. Да и с read, readln можно не замарачиваться. Вот пример, если разделитель пробел:
    Код:
    procedure TForm1.Button1Click(Sender: TObject);
    var
    str:TStringList;
    s, s1:string;
    k:Integer;
    begin
    str:=TStringList.Create;
    try
    str.LoadFromFile('MyTextFile');
    s:=str.Text;
    finally
    str.Free;
    end;
    k:=Pos(' ', s);
    While k<>0 do
    begin
    s1:=Copy(s, 1, k-1);
    If s1<>'' then
    //какие то действия с очередной строкой содержащей число
    Delete(s, 1, k);
    k:=Pos(' ', s);
    end;
    end;
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей