Denkfehler? Erste Gehversuche nach langer Auszeit

[Yourhighness]

Hallo Ihr,

hab das jetzt mal umgesetzt und meinen eigenen Fehler gefunden (hatte ausversehen den String unter type anstelle von var. Allerdings hadere ich jetzt an der Button procedure.

Bei o.g. Beispiel ging es nicht, also hatte ich den Button ganz geloescht und neu gemacht. Jetzt sagt es immer, das kein BtnGo onclick oder so vorhanden ist.

Delphi-Quellcode:

unit BSG;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;

type
  TfrmMain = class(TForm)
    Label1: TLabel;
    LblSearchTxt: TLabel;
    EdtSearchTxt: TEdit;
    BtnGo: TButton;
    procedure BtnGoClick(Sender: TObject);
    procedure BtnGoClick(TButton);

  private
    { Private declarations }
    procedure SearchText;

  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;
  SearchString: String;

implementation

{$R *.dfm}

procedure TfrmMain.SearchText;
begin
  //  das Folgende wäre eine doppelte Zuordnung
  SearchString := EdtSearchTxt.Text;
  Label1.Caption := SearchString;

end;

procedure BtnGoClick(TButton);
begin

end;

end

Merci und schoenen Sonntag noch.