Einzelnen Beitrag anzeigen

Yourhighness

Registriert seit: 11. Aug 2007
Ort: Hamburg
6 Beiträge
 
#8

Re: Denkfehler? Erste Gehversuche nach langer Auszeit

  Alt 12. Aug 2007, 19:04
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
  Mit Zitat antworten Zitat