Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Betriebssysteme (https://www.delphipraxis.net/27-betriebssysteme/)
-   -   Quelltext für Text entsperren und Text verschlüsseln? (https://www.delphipraxis.net/90882-quelltext-fuer-text-entsperren-und-text-verschluesseln.html)

Klaus01 27. Apr 2007 09:37

Re: Quelltext für Text entsperren und Text verschlüsseln?
 
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 27. Apr 2007 09:41

Re: Quelltext für Text entsperren und Text verschlüsseln?
 
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:

Delphi-Quellcode:
 Label1.Caption := entsperren(edit1.text);
Vielleicht hilft Dir das weiter...

SCRaT


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:37 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz