Последние записи
- Удаление папки с файлами
- Распечатка файла
- Преобразовать массив байт в вещественное число (single)
- TChromium (CEF3), сохранение изображений
- Как в Delphi XE обнулить таймер?
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
- Вывод на печать графического файла
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
Интенсив по 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 значений (каждое из которых разделено знаком ";") записать в свою переменную. Остальные данные не нужны.
примерный набросок:
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
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)