Forum: Object-Pascal / Delphi-Language
Delphi
by shmia,
6. Dez 2012
Irrtum, der Stringvergleich auf '' ist effizienter als Length(s)=0.
var
s : string;
begin
s := Trim(' ');
if s = '' then // rot markiert, 1 X86-Befehl
ShowMessage('1');
if Length(s) = 0 then // grün markiert, 3 X86-Befehle
ShowMessage('2');
Forum: Object-Pascal / Delphi-Language
Delphi
by shmia,
6. Dez 2012
{**************************************************************************
* NAME: RemoveEmptyStrings
* DESC: lösche leere Zeilen aus StringListe
* RESULT: Anzahl der Löschungen
*************************************************************************}
function RemoveEmptyStrings(list : TStrings):Integer;
var
i : Integer;
begin
Assert(Assigned(list));