witam....
przeszukalem /chyba/ cala strone i nie znalazlem funcji ktora pomoze mi wsadzic taki string:
aa;bb;ccc;ddd;
do tablicy...
w php'ie jest cos takiego... a w delphi??
witam....
przeszukalem /chyba/ cala strone i nie znalazlem funcji ktora pomoze mi wsadzic taki string:
aa;bb;ccc;ddd;
do tablicy...
w php'ie jest cos takiego... a w delphi??
Rozwiazanie powinienes znalezc w FAQ albo w kursach (juz nie pamietam, ale na pewno to tam widzialem).
no to jeszcze te kursy przerobie.... :-D
Pos, Copy, Delete + F1
Chodzi o to, żeby każdy znak był oddzielnym elementem tablicy? To tak można :
var
s : string;
i : integer;
a : array of char;
begin
for i := 0 to length(s) do begin
SetLength(a, Length(a) + 1);
a[Length(a) - 1] := s[i];
end;
end;
Wydawalo mi sie, ze kiedys widzialem taka funkcje... :-/
A jesli nie ma to chyba powinno byc jakos tak :)
var
Idx: Integer;
Arr: array of string;
S: String;
begin
S := 'aa;bb;cc;dd;';
repeat
Idx := Pos(';', S);
if Idx <> 0 then begin
SetLength(Arr, High(Arr) +2);
Arr[High(Arr)] := Copy(S, 1, Idx -1);
Delete(S, 1, Idx);
end;
until Idx = 0;
end;
Może to niezbyt eleganckie rozwiązanie ale wymyśliłem to w 5 min :P
procedure TForm1.Button1Click(Sender: TObject);
var
a:array[0..255] of char;
s:string;
begin
s := 'jestem sobie stringiem';
strcopy(Pchar(@a),Pchar(s));
form1.caption := a;
end;
i tera jak klikniesz w batona to powinno w caption formy wyświetlić tekst 'Jestem sobie stringiem'.
jest cos takiego
masz string
var
s : String;
st: TstringList;
s := 'bla;ew;dal;
st : TStringList.Create;
ExtractStrings([';'],[],PChar(s),st)
rozdziela ci do tak jak chcesz, tylko do tablicy dynamicznej
i st pod indexami bedziesz miał kolejne elementy rozdzielone srednikiem
var
s : String;
st: TstringList;s := 'bla;ew;dal;
st : TStringList.Create;ExtractStrings([';'],[],PChar(s),st)
dzieki wlasnie dokladnie o takie cos mi chodzilo... [browar]