syntax ord(x)

[Mb123]

hallo,
ich möchte den inhalt eines strings in Ascii-zahlen umwandeln und die zahlen
dann in einer listbox schreiben. das ist nun mein code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
s,b:string ;
  i:integer;
begin

  s := edit1.text;
  for i:=1 to length(s)      do
  b := Copy(text, 0, i);
    ListBox1.Items.Add(IntToStr(ord(b))  ;

end;

ich bekommen nun aber die meldung: ..Incompatible types..
kann mir da jemand weiterhelfen ? danke

[Neutral General]

Hi,

ListBox1.Items.Add(IntToStr(ord(b[1]));

Ord() erwartet einen Char und keinen String

PS: Wobei ich davon ausgehe das du mit

b := Copy(text, 0, i); EIGENTLICH

b := Copy(text, i, 1); meinst.. sonst bekommst du nämlich keine Chars

Gruß
Neutral General

[mkinzler]

Du kannst Ord nicht auf Strings, sondern nur auf einen Char anwenden

[Klaus01]

Hallo,

ist vielleicht besser so?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
s,b:string ; 
  i:integer; 
begin 

  s := edit1.text; 
  for i:=1 to length(s)      do 
    begin
      b := s[i]; 
      ListBox1.Items.Add(IntToStr(ord(b))  ; 
    end;

end;

Grüße
Klaus

[Robert Marquardt]

Ord() wirkt auf ordinale Datentypen, aber b ist ein string.

Alles weg was nicht noetig ist.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 1 to Length(Edit1.Text) do
    ListBox1.Items.Add(IntToStr(Ord(Edit1.Text[I]));
end;

[mkinzler]

@Klaus01: Nein b muß vom Typ Char sein.