Como quebrar um string??
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
Curtidas 0
Respostas
Nildo
16/12/2003
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.
GOSTEI 0
Titanius
16/12/2003
valeu.....
GOSTEI 0