Hallo Ihr,
danke fuer die Antworten. Hab das jetzt mal geloescht und neu gemacht.
So schauts jetzt aus:
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);
private
{ Private declarations }
procedure SearchTxt;
public
{ Public declarations }
end;
var
frmMain: TfrmMain;
SearchString:
String;
implementation
{$R *.dfm}
procedure TfrmMain.SearchTxt;
begin
// das Folgende wäre eine doppelte Zuordnung
SearchString := EdtSearchTxt.Text;
Label1.Hide;
end;
procedure TfrmMain.BtnGoClick(Sender: TObject);
begin
Label1.Caption := SearchString;
Label1.Show;
end;
end
Folgende Fehlermeldungen bekomme ich:
Zitat:
[Error] BSG.pas(50): '.' expected but end of file found
[Hint] BSG.pas(18): Private symbol 'SearchTxt' declared but never used
[Fatal Error] BSG_Project.dpr(5): Could not compile used
unit 'BSG.pas'
Hatte auch versucht:
private
{ Private declarations }
procedure SearchTxt;
mit TfrmMain.SearchTxt; aber das half auch nicht. Irgendwie stelle ich mich Doof an
http://www.comicguide.net/images/smilies/doof.gif