ord problem

[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;