Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by alzaimar,
9. Jan 2009
Absolut korrekt. Wer lesen kann, ist klar im Vorteil. :oops:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by alzaimar,
9. Jan 2009
Function ZapSpacesGeneric (Const aString : String) : String;
Var
sPrevVersion : String;
Begin
Result := aString;
While Pos (' ', Result) > 0 Do // solange doppelte Leerzeichen vorhanden sind
Result := StringReplace (Result, ' ',' ', ) // ersetze sie durch ein Leerzeichen
End;
Eine knappe Implementierung mit Bordmitteln, die beinahe jeden Performancewettbewerb verliert, aber...