Текущий архив: 2005.08.07;
Скачать: CL | DM;
Вниз
Помогите с *.txt файлом Найти похожие ветки
← →
Big Joe © (2005-07-19 08:58) [0]Привет всем ! Помогите разобраться с задачей ! Есть *.txt файл
телефонный справочник, в нём данные хранятся примерно в таком виде : Путин |Владимир|Владимирович
Чой |Хонг|Хи
Как мне Фамилию, Имя, Отчество присвоить к трём переменным ?
← →
evvcom © (2005-07-19 09:07) [1]AnsiPos, Copy + F1
← →
Anatoly Podgoretsky © (2005-07-19 09:10) [2]И :=
← →
Big Joe © (2005-07-19 09:13) [3]Хех.. Данные разной длины разделяются | Как ориентироваться
чтобы переберал правильно ?
← →
Skyle © (2005-07-19 09:19) [4]> [3] Big Joe © (19.07.05 09:13)
Кусок кода, который не может сориентироваться - в студию.
← →
Digitman © (2005-07-19 09:23) [5]procedure TForm1.Button1Click(Sender: TObject);
var
sl1, sl2: TStrings;
i: Integer;
begin
sl1 := TStringList.Create;
sl1.LoadFromFile("c:\text.txt");
sl2 := TStringList.Create;
sl2.Delimiter := "|";
for i:=0 to sl1.Count - 1 do
begin
sl2.DelimitedText := sl1[i];
showmessage("Фамилия : " + sl2[0] + " Имя : " + sl2[1] + " Отчество : " + sl2[2]);
end;
sl2.Free;
sl1.Free;
end;
Страницы: 1 вся ветка
Текущий архив: 2005.08.07;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.024 c
