Não tem nativa. Vai ter que implementar.
Exemplo de implementação:
{ Retorna um TStrings contendo em cada posição
cada palavra de um texto especificado }
function SplitStr(const s: string; sep: Char): TStrings; overload;
begin
Result := TStringList.Create;
Result.Delimiter := sep;
Result.DelimitedText := s;
end;
{ Retorna um array dinâmico de strings contendo em cada posição
cada palavra de um texto especificado }
function SplitStr(const s: string; sep: Char): TStringDynArray; overload;
var
ls: TStrings;
begin
ls := SplitStr(s, sep);
SetLength(Result, 0);
while ls.Count > 0 do
begin
SetLength(Result, Succ(Length(Result)));
Result[High(Result)] := ls[0];
ls.Delete(0);
end;
end;
Sds.
To: delphi-br@yahoogrupos.com.br
From: evaldoave...@yahoo.com.br
Date: Tue, 15 Jun 2010 07:55:25 -0700
Subject: [delphi-br] Função Explode
Delphi tem alguma função explode nativa?
ou vou ter que implementar?
por exemplo:
A string:
str := teste,teste,teste,teste
explode(str,',');
retorna uma stringlist:
teste
teste
teste
tese
_________________________________________________________________
O INTERNET EXPLORER 8 TE AJUDA A FICAR PROTEGIDO DE FRAUDES NA WEB. LEIA MAIS
AQUI.
http://www.microsoft.com/brasil/windows/internet-explorer/features/dicas.aspx?tabid=1&catid=1&WT.mc_id=1589
[As partes desta mensagem que não continham texto foram removidas]
