Hallo zusammen,
Wäre folgendes nicht einfacher (speziell bei einzelnen Wörtern)?
Folgende Funktion habe ich mir gerade mal im Kopf zusammengeschuster (ungetestet...). Die Funktion löscht einfach alle Leerzeichen heraus. Für Worte reicht das ja wohl, aber bei Sätzen, wo Leerzeichen bleiben sollen, müsste man eben etwas anders an die Sache herangehen...
Delphi-Quellcode:
function Form1.entsperren(wort : string) : string;
begin
While pos(' ', wort) > 0 Do Delete(wort, pos(' ', wort), 1);
result := wort;
end
Der Aufruf erfolgt z.B. folgendermaßen:
Label1.Caption := entsperren(edit1.text);
Vielleicht hilft Dir das weiter...
SCRaT