Questa funzione è l'equivalente della funzione Split di Visual Basic per il linguaggio Delphi.
Usage: Split('hello world!',' ');
Ritorna un oggetto TStringList contenente gli elementi "hello" e "world!".
function Split(StrBuf,Delimiter: string): TStringList;
{ Porting della funzione Split di Visual Basic in Delphi by Piero Tofy (C) 2005 }
var
MyStrList: TStringList;
TmpBuf: string;
LoopCount: integer;
begin
MyStrList := TStringList.Create;
LoopCount := 0;
repeat
if StrBuf[LoopCount] = Delimiter then
begin
MyStrList.Add(TmpBuf);
TmpBuf := '';
end;
TmpBuf := TmpBuf + StrBuf[LoopCount];
inc(LoopCount);
until LoopCount > Length(StrBuf);
{ Inserisce gli ultimi dati del buffer... }
MyStrList.Add(TmpBuf);
Result := MyStrList;
end;
Delphi Split Function
Pubblicato prima del 07/05/2008 - Informazione assente
E' un appassionato di programmazione con un particolare interesse per le tecnologie web e mobile. Da 11 anni gestisce il sito pierotofy.it e lavora negli Stati Uniti come consulente informatico tramite la sua azienda, MasseranoLabs LLC. Seguilo su Twitter: @pierotofy
|
Aggiungi un commento