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
Jak rozbić string na tablicę? Mam np:
index0|index1|index2|itd.
Pozdrówka
Tak :)
var
Text : String;
I : Integer;
Tablica : array [0..10] of String;
begin
Text := 'Index1|Index2|Index3|';
I := 0;
while Pos('|', Text) <> 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