Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите с *.txt файлом [D7, WinXP]

Big Joe © (2005-07-19 08:58:00)
Привет всем ! Помогите разобраться с задачей ! Есть *.txt файл
телефонный справочник, в нём данные хранятся примерно в таком виде : Путин |Владимир|Владимирович
Чой |Хонг|Хи

Как мне Фамилию, Имя, Отчество присвоить к трём переменным ?

Digitman (2005-07-19 09:23:00) [1]
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;

Skyle (2005-07-19 09:19:00) [2]
> [3] Big Joe © (19.07.05 09:13)
Кусок кода, который не может сориентироваться - в студию.

Big Joe (2005-07-19 09:13:00) [3]
Хех.. Данные разной длины разделяются | Как ориентироваться
чтобы переберал правильно ?

Anatoly Podgoretsky (2005-07-19 09:10:00) [4]
И :=

evvcom (2005-07-19 09:07:00) [5]
AnsiPos, Copy + F1

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »