TXT 2 Tablica :)

Jak rozbić string na tablicę? Mam np:

index0|index1|index2|itd.

i chce z tych elementów zrobić tablicę. Jak tego dokonać?---------------------------
Delphi 6

Pozdrówka

Tak :)

var
Text : String;
I : Integer;
Tablica : array [0..10] of String;
begin
Text := 'Index1|Index2|Index3|';
I := 0;
while Pos('|', Text) &lt&gt 0 do begin
Tablica[I] := Copy(Text, 0, Pos('|', Text)-1);
Delete(Text, 1, Pos('|', Text));
Inc(I);
end;
end;--Pozdrawiam {hello}
Tomasz K.

A jakbyś tak zastąpił '|' przez Char(13) to mógłbyś wpisać tego stringa do TStrings o tak:

var Tab:TStrings;

begin
tab:=TStringList.Create;
// zakładam że s zawiera łańcuch z poprawką o której mowa wyżej
tab.SetText(s);
end;

I wtedy każdy oddzielny łańcuch możesz wyciągnąć poprzez:

var m:string;
i:integer;

m:=Tab.Strings[i]; //indeksacja od zera do Tab.Count-1
--Michał
TJS group
delphi 5,6