Hi.
Auf die einzelnen Zeichen eines Memos kannst du wie bei einem array of char zugreifen, wobei das erste Zeichen allerdings mit dem Index 1 addressiert wird:
Delphi-Quellcode:
function Encode(const s: String): String;
var
i: Integer;
code: string;
begin
// Ausgabe ist doppelt so lang wie Eingabe
SetLength(Result, Length(s) shl 1);
for i := 1 to Length(s) do
begin
// Jedes Zeichen in seinen 2-Byte-Hex-Code wandeln
code := IntToHex(Ord(s[i]), 2);
// an richtige Stelle in Ausgabe kopieren
Move(code[1], Result[Succ(Pred(i) shl 1)], 2);
end;
end;
procedure TDemoForm.EncodeButtonClick(Sender: TObject);
begin
Memo2.Text := Encode(Memo1.Text);
end;
Vielleicht kannst du das ja an deine Bedürfnisse anpassen.
Grüße vom marabu