Hallo zusammen,
ich habe eine Stringverabeitungsfunktion geschrieben, die mehrere aufeinanderfolgende
Leerzeichen innerhalb eines Strings zu einem Leerzeichen reduziert und somit den
String neu aufbaut.
Diese Funktion benutze ich im Zusammhang mit Daten aus einer Datenbank.
Die Funktion wird sehr oft aufgerufen. Es läuft auch gut.
Ich versuche gerade in der Gesamtverarbeitung Performace zu gewinnen.
Hat einer eine Idee, wie ich diese Funktion noch schneller realisieren könnte?
Speicherauslastung spielt keine Rolle, Geschwindigkeit ist primär.
Delphi-Quellcode:
function DeleteBlanksFromStr(const AString: string): string;
function DeleteBlanks(AStr: string): string;
var i,
LIndex,
LCount: Integer;
LStr,
LString: string;
begin
//prüfen ob innerhalb des Strings noch zwei aufeinander folgende Leerzeichen sind,
//wenn keine vorhanden, keine weitere Verarbeitung nötig
result := AStr;
LIndex := Pos(' ', AStr);
if (LIndex > 0) then
begin
//falls den leerzeichen ein weiteres folgt prüfen, ob weitere folgen
i := LIndex + 2;
while (AStr[i] = ' ') do
begin
inc(i);
end;
//wenn i sich verändert hat, gab es weitere folgende leerzeichen
//if not (i = LIndex + 2) then <- dies würde dazu führen, daß zwei leerzeichen hintereinander nicht
//begin verarbeitet werden
LStr := Copy(AStr, 1 , LIndex);
LString := Copy(AStr, i, Length(AStr));
result := LStr + DeleteBlanks(LString);
//end;
end;
end;
begin
//Leerzeichen ganz vor und ganz hinten streichen
result := Trim(AString);
//alle leerzeichen innerhalb des strings verarbeiten
result := DeleteBlanks(result);
end;
Danke fürs Lesen.