Mam lancuch, na. 123;456;789 i dziele go taka procedura:
procedure Dzielenie;
var
Lancuch : string;
P : Integer;
begin
memo1.Clear;
Lancuch := '123;456;789';
P := Pos(';', Lancuch);
P := Pos(';', Lancuch);
while P > 0 do begin
Memo1.Lines.Add(Copy(Lancuch, 1, P - 1));
Delete(Lancuch, 1, P);
P := Pos(';', Lancuch);
end;
Memo1.Lines.Add(Lancuch);
end;
jak jest dobrze gdy lancuch nie ma wiecej niz 3 skladniki. Jak chce podzielic cos takiego 123;456;789;000 to pokaze mi sie cos takiego:
123
456
789
a ostatni wyraz znika. Tak samo dzieje sie jak jest wiecej czlonow. Chyba wiecie w czym problem. Moze ktos wie jak zrobic zeby pokazywalo wiecej niz 3 skladniki?--pozdrawiam PEDROS {hello}
Delphi6