Cześć,
mam procedurę która "tnie" string :
procedure Explode(var a: array of string; Border, S: string);
var
S2: string;
i: Integer;
begin
i := 0;
S2 := S + Border;
repeat
a[i] := Copy(S2, 0,Pos(Border, S2) - 1);
Delete(S2, 1,Length(a[i] + Border));
Inc(i);
until S2 = '';
end;
i ... odwołanie się do niej:
var
S: string;
A: array[1..2] of String;
begin
S := Label1.Caption;
Explode(A, ',', S); znak według którego będzie "pocięty" string (,)
Label2.Caption:=(A[1]);
Label3.Caption:=(A[2]);
end;
Tu brak problemów bowiem tablica jak widać obejmuje zaledwie 2 elementy...
Jak przerobić ten kod, aby program obliczał A dla S ? Tzn: może wystąpić ilość
elementów od 1 do n Idealnym byłoby wówczas wpis do ListBox - co dla mnie byłoby rozwiązaniem wygodniejszym... Czy wystarczy zatem utworzenie tablicy dynamicznej ? dla A ?
Bardzo proszę o pomoc
Pozdrawiam