Чтение строк с текстом и числами из файла в Delphi 2010

Delphi , Интернет и Сети , Браузер

Вопрос, который стоит перед разработчиками, работающими с файлами в Delphi 2010, часто связан с чтением данных, представленных как в текстовом, так и в числовом формате. Пример такой строки из файла может выглядеть так:

Dog 5 4 7

Задача состоит в том, чтобы написать функцию чтения файла, которая сможет прочитать данную строку и разделить её на отдельные переменные: текстовые данные (например, "Dog") должны быть помещены в строковую переменную, а числовые значения (5, 4, 7) - в соответствующие переменные типа integer или real.

Решение задачи

Для решения этой задачи можно использовать различные подходы. Один из них заключается в использовании компонента TJclStringList из библиотеки Jedi Code Library. Сначала вы загружаете файл в список строк, а затем проходите по каждой строке, разделяя её по пробелам и обрабатывая полученные элементы.

var
  slF, slR: IJclStringList;
  ai: TList<Integer>;
  s: string;
  i: integer;
  action: procedure(const Name: string; Const Data: array of integer);
begin
  slF := TJclStringList.Create;
  slF.LoadFromFile('some.txt');
  slR := TJclStringList.Create;
  try
    for s in slF do
    begin
      slR.Split(s, ' ', true);
      ai := TList<Integer>.Create;
      try
        for i := 1 to slR.Count - 1 do
          ai.Add(StrToInt(slR[i]));
        action(slR[0], ai.ToArray);
      finally
        ai.Free;
      end;
    end;
  finally
    slF.Free;
    slR.Free;
  end;
end;

Другой подход заключается в использовании функции SplitString из модуля StrUtils для разделения строки на части, а затем применение функции StrToInt для преобразования текстового представления числа в числовой формат.

uses
  StrUtils;
var
  Fields: TStringDynArray;
begin
  Fields := SplitString(Row, ' ');
  StrVar := Fields[0];
  IntVar1 := StrToInt(Fields[1]);
  IntVar2 := StrToInt(Fields[2]);
  IntVar3 := StrToInt(Fields[3]);
end;

Если в файле присутствуют числа в виде дробных значений, следует использовать функцию StrToFloat вместо StrToInt.

Важно отметить, что если в тексте имеются пробельные символы в начале или конце текстовой информации, они будут корректно обработаны, так как разделителем служит пробел.

Заключение

Для работы с данными, представленными в текстовом файле в виде текстов и чисел, можно использовать различные встроенные средства и дополнительные библиотеки, такие как TJclStringList из Jedi Code Library. Основываясь на предоставленных примерах, разработчики могут выбрать наиболее подходящий для себя вариант обработки файла и чтения данных в Delphi 2010.

Создано по материалам из источника по ссылке.

Задача состоит в чтении строк с текстом и числами из файла в Delphi 2010, с целью разделения данных на текстовые и числовые переменные.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Браузер ::