F�rum [Delphi] Existe a fun��o Split no Delphi? #582028

01/06/2017

Delphi

boa tarde people?

Algu�m aqui j� implementou o SPLIT no Delphi?

abra�os

Gladstone Matos

Curtir t�pico

+ 0

Responder

Posts

01/06/2017

Roberto Wutke

Boa tarde Bro,

Se estiver falando do SplitString, eu costumo usar ele. Tudo que precisei est� nesse link.

http://www.clipatecinformatica.com.br/2014/09/usando-funcao-splitstring-do-delphi.html

Bons c�digos.

Responder

Gostei + 0

01/06/2017

Gladstone Matos

obrigado Roberto; Acabei usando a fun��o abaixo:

Function
TStringArray = array of string;

function Split(Expression:string; Delimiter:string):TStringArray;
var
  Res:        TStringArray;
  ResCount:   DWORD;
  dLength:    DWORD;
  StartIndex: DWORD;
  sTemp:      string;
begin
  dLength := Length(Expression);
  StartIndex := 1;
  ResCount := 0;
  repeat
    sTemp := Copy(Expression, StartIndex, Pos(Delimiter, Copy(Expression, StartIndex, Length(Expression))) - 1);
    SetLength(Res, Length(Res) + 1);
    SetLength(Res[ResCount], Length(sTemp));
    Res[ResCount] := sTemp;
    StartIndex := StartIndex + Length(sTemp) + Length(Delimiter);
    ResCount := ResCount + 1;
  until StartIndex > dLength;
  Result := Res;
end;

Uso:

var
  Strings:  TStringArray;

begin
  Strings := Split('Ol�||Mundo||', '||');
  MessageBox(0, PChar(Strings[1]), nil, 0);

end.

Responder

Gostei + 0