Soo, hier nochmnal das was du wolltest (Nur Leerzeichen löschen, die doppelt sindd, oder vorne oder hinten)
Code:
Setlength(Result, length(AString));
j = 1;
SpaceBefore = true;
for(i=1; i<=length(AString); i++)
{
if (not (AString[i] == ' ' and SpaceBefore))
{
Result[j] = AString[i];
inc(j);
}
SpaceBefore = AString[i] == ' ';
}
if (AString[length(AString)] == ' ')
j = j - 1;
setlength(Result, j-1);
Sollte nicht allzuschwer sein, das nacxh Delphi umzuschreiben.
Zitat von
Tyrael Y.:
Also die leichteste Lösung ist natürlich eine einfache Schleife, aber sie kann nicht die schnellste Lösung sein, da Strings ohne mehrere Leerzeichen hintereinander auch verabeitet werde.
Warum nicht? KISS-Prinzip
Ja und? ddann werden eben schöne String auch einmal kopiert.
Wenn du vorher mit pos() prüfst, muss der String ja auch einmal durchgegangen werden. Mal ganz von deinen zig maligen copy()-Aufrufen abgesehen.
Zitat:
Eine Schleife mit StringReplace die alle ' ' (zwei Leerzeichen) ducrh ein Leerzeichen ersetzt, bis Pos() keine ' ' (zwei Leerzeichen) mehr findet.
Also eine Schleife, die den ganzen String durchgeht, um zwei Leerzeichen zu suchen, wenn gefunden, wieder den ganzen String durchgehen, um 2 Leerzeichen durch 1 zu ersetzen, und das in einer Schleife????
Da ist meine Lösung
imho um einen Faktor 2-5 schneller