Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

28th
Сен

Чтение из текстового файла в переменную

Posted by obzor under Delphi

Есть текстовый файл:

4310139A000PB9;ГАЛИНА;АЛЕКСАНДРОВНА;КОШЕЛЬ;19390131;MH;0010330;17/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;
11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11400826;34;16;;137
4010139A000PB0;ОЛЬГА;ТИХОНОВНА;ДИВИНА;19390101;MH;0010359;17/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;
11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11400724;34;22;;28
4190639A000PB6;НИНА;АЛЕКСЕЕВНА;КАЗАЗЯН;19390619;MH;0010355;17/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;
11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11401062;34;74;2;14
4240439A000PB8;ТАМАРА;СЕМЁНОВНА;ЗОЛОТАРЁВА;19390424;MH;0010365;17/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;
11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11400173;34;70;;86
4260839A000PB2;ОЛЬГА;АНАТОЛЬЕВНА;ТКАЧЕНКО;19390826;MH;0010092;16/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;
11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11400161;34;6;;32

Нужно первые 7 значений (каждое из которых разделено знаком ";") записать в свою переменную. Остальные данные не нужны.

Serge_Bliznykov

примерный набросок:

var
  TSAll, ts : TStringList;
  i, j : integer;
  resArr : array[0..6] of string;
begin
  TSAll := TStringList.Create;
  TSAll.LoadFromFile('Тут имя вашего файла');

  ts := TStringList.Create;
  ts.Delimiter := ';';

  for i:=0 to TSAll.Count-1 do begin
    ts.DelimitedText := TSAll.Strings[ i];
    if ts.Count>=7 then begin
       for j:=0 to 6 do begin
              resArr[j] := ts.Strings[j];
              ShowMessage(IntToStr(j)+'-е значение = '+resArr[j]);
       end;
    end;
  end;
  FreeAndNil(ts);
  FreeAndNil(TSAll);
end;

тема на форуме

Случайные статьи

Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru

Да и по любым другим вопросам пишите на почту

пеллетные котлы

Пеллетный котел Emtas

Наши форумы по программированию: