Einzelnen Beitrag anzeigen

Benutzerbild von scrat1979
scrat1979

Registriert seit: 12. Jan 2007
Ort: Sulzbach a.d. Murr
1.029 Beiträge
 
Delphi 10.4 Sydney
 
#12

Re: Quelltext für Text entsperren und Text verschlüsseln?

  Alt 27. Apr 2007, 10:41
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
Michael Kübler
  Mit Zitat antworten Zitat