ord problem

[mimi]

ich habe ein kleines problemchen....
und zwar:
wenn ich die funktion ord so aufrufe mit ner zahl wird sie mir als bin zurückgeben aber das möchte ich garnicht ich möchte von dieser zahl den assci code haben und kann sie leider nicht in '' setzen, weil der wert den ich ord gebe ist ein char wert der zurlaufzeit betzimmt wird.....
das problem liegt einfach nur bei ORD, wer kann mir helfen ????

[70UR157]

der ASCII code für die ziffern 0 bis 9 ist einfach die betreffende zahl + 48

[Pseudemys Nelsoni]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  c: char;
begin
  c := '5';
  showmessage(inttostr(ord(c)));
end;

und wo ist da nun das problem? ich bekomme 53 raus und keine bin zahl...

[mimi]

ok, also:
Edit2.Text:=Edit2.Text + ascci[ Ord(Edit1.Text[i+1]) ] ;
so sieht meine zeile aus....

[70UR157]

ich glaube er hat/meint richtige zahlen wie 5 nicht '5', möchte aber dann den ASCII code von '5' haben. und dazu bräuchte er dann wie gesagt kein Ord(). es würde reichen die 5 zu nehmen und 48 zu addieren => voila der ascii code von '5'

[Luckie]

Du musst die Zahl auch als String angeben:

Delphi-Quellcode:

ShowMessage(IntToStr(ord('5')));

[mimi]

das kann ich nicht, hier der qullcode ich hoffe dann versteht ihr was ich meine:

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  ascci:array[0..255] of char;
  i:Integer;
begin
  Edit2.Text:='';
  RandSeed:=StrToInt(Edit3.Text);
  CreateRandomValues(ascci);

  for i:=0 to Length(Edit1.Text) do begin
    if not 0..9 in Edit1.Text[i+1] then
    Edit2.Text:=Edit2.Text + ascci[ Ord(Edit1.Text[i+1]) ] ;
  end;

 // ArrayToFile(ascci);
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  ascci:array[0..255] of char;
  i:Integer;
begin
  Edit4.Text:='';

  RandSeed:=StrToInt(Edit3.Text);
  CreateRandomValues(ascci);

  for i:=0 to Length(Edit2.Text) do begin
   Edit4.Text:=Edit4.Text +  chr(GetArrayIndex(edit2.text[i+1],ascci))  ;
  end;
end;

[Luckie]

Warum kannst du das nicht? Du kannst doch jeden Integer in einen String umwandeln. Wo ist da das Problem? Natürlich macht das nur Sinn bei den Ziffern 0 bis 9.

[mimi]

das habe ich alles versucht mit intToStr und so, er liefert mir immer nur #zahlen zurück und ich weiß einfach nicht warum...

[Pseudemys Nelsoni]

#zahlen sind doch auch richtig? ich denk du wllst ascii?

Edit..

[Ratte]

Geht vieleicht

Delphi-Quellcode:

Edit2.Text:=Edit2.Text + ascci[ strtoint(Edit1.Text[i+1])+48];

Ratte

[mimi]

ne, das ist nicht mein ziel mein ziel ist es das ich einfach ein zeichen angebe und er er den RICHTIGEN asccicode zurück gibt und das tut er nich bei zahlen... leider ich habe noch ein problem gemerkt, was ich auch noch nicht so recht verstehen:
ich habe items:array[0..255] of boolean; und da speicher ich jeden tasten druck danach wird eine funktion ausgelöst da habe ich z.b. drinen stehen:
if items[ord'+')] then tueetwas; stehen dann wird das nicht ausgefürht grund:
in der funktion onKeyDown des foums wird eine ander zahl zurück geben als in meiner TGame class warum ????

gibst vileicht noch eine andre möglichkeit an den asscicode schnell ranzukommen ?