Конструкция файла

[SunKnight]

Создал я конструкцию будующего файла, вот чтото типа этого:

1|Кто ты?|Вася|ПЕтя|Коля|Лоля|

Как теперь считать из файла эти данные и построить массив:

mas[0]:='1';
mas[1]:='Кто ты?';
mas[2]:='Вася';
...............
и т.д.

в принципе алгоритм понятен, но код никак немогу сотворить.
Помогите чем сможете. Спасибо.

[alexBlack]

Да просто считать в строку или буфер и пройтись по нему разбивая на строки:

S1 := '';
P := 1; N := 0;
While P <= length(S) do begin
    if  (S[P] = '|') {or (P = length(S))} then begin // строка замыкается символом ? 
        mas[N] := S1; inc(N);
        S1 := '';
    end else 
         S1 := S1 + S[P]; 
    inc(P);
end;

Может лучше запятыми разбить и использовать TStringList - у него есть CommaText.

[MusicMan]

А для чего оно нужно то?
К слову -
Можно ещё было при конструкции не писать '|', а просто
записывать длинну строки. Тот же байт, только прри чтении
гемора меньше.

[SunKnight]

Всем спасибо.

[Stilet]

Я бы смотрел в сторону типизированного файла в этом случае.
Или в сторону БД.