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.