Prozedur für jeden Buchstaben

[Hawkeye219]

Hi Steve,

hier ist eine kleine technische Spielerei:

Delphi-Quellcode:

procedure A;
begin
  ShowMessage ('A');
end;

procedure B;
begin
  ShowMessage ('B');
end;

procedure C;
begin
  ShowMessage ('C');
end;

exports
  A, B, C;

procedure TForm1.Button1Click(Sender: TObject);
var
  proc : procedure;
begin
  proc := GetProcAddress(HInstance, PChar(Edit1.Text));
  if Assigned(proc) then
    proc
  else
    ShowMessage ('Prozedur "' + Edit1.Text + '" existiert nicht!');
end;

Hast du dir eigentlich schon überlegt, wie du Sonderzeichen ('$', '(',...) behandeln möchtest?

Gruß Hawkeye