Como quebrar um string??

16/12/2003

1

Olá, tenho a seguinte string: 245;547;1;24;54
quero quebrar ela onde tem o ; ficando assim:
245
547
1
24
54

como faço isso?

Desde já agradeço...


Responder

Posts

16/12/2003

Nildo

var
b: TStringList;
s: String;
begin
s := ´245;547;1;24;54´ ;
b := TStringList.Create;

while pos(´;´, s) <> 0 do
begin
b.Add( Copy( s, 1, pos(´;´, s)-1 ) );
Delete(s, 1, pos(´;´, s));
end;
end;

Entao se você quiser o primeiro item, use b[0]. O Segundo: b[1], assim por diante.


Responder

16/12/2003

Titanius

valeu.....


Responder