Como quebrar um string??
16/12/2003
0
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...
quero quebrar ela onde tem o ; ficando assim:
245
547
1
24
54
como faço isso?
Desde já agradeço...
Titanius
Curtir tópico
+ 0
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.
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
Clique aqui para fazer login e interagir na Comunidade :)
