Помогите с *.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]

Хех.. Данные разной длины разделяются | Как ориентироваться
чтобы переберал правильно ?

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;

Помогите с *.txt файлом Найти похожие ветки