String zu AnsiChar oder Char umwandeln

[xaromz]

Hallo,

wie wär's damit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  i, j, zeilen, zlaenge: Integer;
  Zeichen: Byte;
begin
  zeilen := Memo1.Lines.Count;
  for i := 0 to zeilen - 1 do
  begin
    s := Memo1.Lines[i];
    zlaenge := Length(s);
    for j := 1 to zlaenge do
    begin
      Zeichen := Ord(s[j]); // <-- hier Umwandlung des j-ten Zeichens
      showmessage(IntToStr(Zeichen));
    end;
  end;
end;

Gruß
xaromz