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

[Klaus01]

Vielleicht so?

Delphi-Quellcode:

Procedure TForm1.Entsperren ( wort : string ; var entsperrtext : string); 
var i:integer; 
    l:integer; 
Begin 
  l:= length(wort); 
  i:=1; 
  entsperrtext:='';
  repeat 
    entsperrtext:=entsperrtext+wort[i]; 
    i:= i + 2 
  until i > l; 
end;

Dein Code hat das Problem, dass
a) delete mit den falschen Parametern aufgerufen wurde
b) Wenn Du ein Zeichen aus dem Wort löscht, Du mit der Nummerierung durcheinanderkommst
Beispiel:

Code:

H A L L O   i=2
HA L L O     
HA L O      i=4
..

Delphi-Quellcode:

Procedure TForm1.Entsperren ( wort : string ; var entsperrtext : string); 
var i:integer; 
    l:integer; 
Begin 
  l:= length(wort); 
  i:=2; 

   repeat 
    delete(wort,1,i);  //<---- 
    i:= i + 2 
  until i > l; 
end;

Grüße
Klaus

[scrat1979]

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