Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Random Probelm

    Delphi
    by Eichhoernchen, 14. Jan 2007
  dann machdas doch so:
  
  
  procedure mach;
  const
  chars: array of integer = (97, 100, 115, 119, 32, 111, 112, 99, 121);
  begin
  Keybd_Event(chars,0,0,0);
  end;
• Forum: Sonstige Fragen zu Delphi

  Re: Random Probelm

    Delphi
    by Eichhoernchen, 14. Jan 2007
  ich dachte es ist schnuppe, welchen Buchstaben er schreibt, ich denke das soll Zufall sein?
  
  Der Befehl Ord('X'), gibt im Endeffekt 88 Zurück, was wiederum in der ASCII-Tabelle steht.
  Also generierst du dir einfach eine Zahl aus der ASCII-Tabelle und das umformen sparst du dir dann, genauso wie die ganzen IF oder Case Anweisungen, weil du musst nicht mehr Prüfen, wenn 7 dann mach nen K,...
• Forum: Sonstige Fragen zu Delphi

  Re: Random Probelm

    Delphi
    by Eichhoernchen, 14. Jan 2007
  du könntest dir die ganzen If Anweisungen sparen indem du den Randombereich auf die ASCII Zeichen einschränkst..so:
  
  
  procedure Timer.....
  begin
  Randomize; //nur 1mal aufrufen pack das ins OnCreate
  Zufall := random (26) + 65; //Alle Großbuchstaben aus der ASCII-Tabelle von 65 bis 90
  Keybd_Event(Zufall, 0, 0, 0);
  end;