Aus einem c ein C machen.. aber wie??

[DymonD]

Hi,
Okay, passt. Merkwürdigerweise funktioniert die Prozedur. Aber ich weiß nicht, wieso... xD

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var
  iStr: string;
  i: integer;
  iStrL: integer;
  f: string;
begin
  sleep(1000); // Damit ich Zeit habe Edit2 anzuklicken
  iStr := Edit1.Text;
  iStrL := Length(iStr);
  for i := 1 to iStrL do begin
    f := iStr[1];
    // erstes zeichen auslesen, tippen, löschen.
    if f = UpperCase(iStr[1]) then PostKeyEx32(Ord(iStr[1]), [ssShift], false)
    else begin
      f := UpperCase(iStr[1]);
      PostKeyEx32(Ord(f[1]), [], false);
      end;
    Delete(iStr, 1, 1);
  end;
end;

Die Prozedur liest aus dem Edit1 aus und tippt virtuell. Allerdings muss ich ja irgendwas eingebbares markieren, darum die Verzögerung.

NACHTRAG:
-------------
Ich bin zu blöde.. ich wollte
Delete(iStr[1], 1, 1); machen, und habe mich gewundert, wieso
Delete(iStr, 1, 1); funktioniert hat. Das löscht eh das erste Zeichen...