Deklaration von Proceduren

[Frage95]

Delphi-Quellcode:

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, slstbox, CurvyControls, Winsock, AdvGlassButton, ColListb;

type
  TfrmMainForm = class(TForm)
    EdNickname: TCurvyEdit;
    Label1: TLabel;
    ListBox1: TListBox;
    BtnAusführen: TAdvGlassButton;
    procedure BtnAusführenClick(Sender: TObject);
//    procedure ListBox1DblClick(Sender: TObject);
      procedure test;

Delphi-Quellcode:

implementation

procedure test;
var
ta,Test : string;
begin
Ta := frmMainForm.EdNickname.Text;
Test := frmMAinform.ListBox1.Items[frmMainform.ListBox1.ItemIndex];
if Test = Ta then begin
   frmClient.Show;
end;
end;

Komm von deinem Ross runter Uwe oder bist du ein vom Himmel gefallener Meister! ^^