ASCII Zeichenkette

[SaFu]

Hi

Habe ein (Problem) bessergesagt ich komm net auf die lösung.

Und zwar versuche ich ne Zeichenkette von ASCII ziechen, in Dezimalzahlen und umgekehrt genauso umzuwandel. Klappt soweit auch ganz gut nur mein Problem ist das ich, bis jetzt nur das erste zeichen umwandeln kann.

Kann mir vielleicht einer sagen wie das mit der Zeichenkette funktioniert??

Hab mal meine Lösung die ich bis jetzt habe angehängt.

Brauch es um später Passworte zu verschlüsseln mit einem Algo.

Danke schonmal

[stifflersmom]

Vielleicht so:

Delphi-Quellcode:

Procedure IrgendeinName;
Var I : Integer;
 Begin
  For I := 1 to Length(MeinString) Do
   MachwasmitZeichen(MeinString[i])
 End;

Moin

[mr.winkle]

also in deinem Fall z.B:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  label1.Caption:='';
  for i:=1 to length(edit1.Text) do
    Label1.Caption := label1.Caption+' '+inttostr(ord(Edit1.text[i]));
end;

Das wäre dann die Umwandlung in Dezimalzahlen

[SaFu]

Ah mit length

und beim umkehren wahrscheinlich genauso?