Einzelnen Beitrag anzeigen

Simatix

Registriert seit: 3. Jun 2010
Ort: Freiburg
1 Beiträge
 
#1

ListBox1 unbekannt in eigener prozedur

  Alt 3. Jun 2010, 22:45
Hallo Zusammen,

ich habe ein Problem, bzw. evtl mehrere..... Ich habe eine eigene Prozedur in der ich eine ListBox1 beschreiben will.
Dort ist diese aber nicht bekannt ? Warum ist mir nicht klar. Der Momentane Quellcode sieht so aus:

Delphi-Quellcode:
unit RS232Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Menus, ImgList, InfoForm;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    EdtSend1: TEdit;
    BtnSend1: TButton;
    EdtSend2: TEdit;
    BtnSend2: TButton;
    EdtSend3: TEdit;
    BtnSend3: TButton;
    EdtSend4: TEdit;
    BtnSend4: TButton;
    EdtSend5: TEdit;
    BtnSend5: TButton;
    EdtSend6: TEdit;
    BtnSend6: TButton;
    GroupBox1: TGroupBox;
    Image1: TImage;
    StaticText1: TStaticText;
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Extras1: TMenuItem;
    N1: TMenuItem;
    Parameterdateisichern1: TMenuItem;
    Parameterdateiladen1: TMenuItem;
    Schnittstelle1: TMenuItem;
    Info1: TMenuItem;
    Speichern1: TMenuItem;
    N2: TMenuItem;
    Beenden1: TMenuItem;
    ImageListMenu: TImageList;
    GroupBox2: TGroupBox;
    LabelStatusEdit: TLabel;
    ClearKonsole1: TMenuItem;
    RS2321: TMenuItem;
    Ethernet1: TMenuItem;
    N3: TMenuItem;
    Parameter1: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure Beenden1Click(Sender: TObject);
    procedure Info1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ClearKonsole1Click(Sender: TObject);
    procedure Parameterdateiladen1Click(Sender: TObject);
    procedure Speichern1Click(Sender: TObject);
    procedure Parameterdateisichern1Click(Sender: TObject);
    procedure BtnSend1Click(Sender: TObject);
    procedure BtnSend2Click(Sender: TObject);
    procedure BtnSend3Click(Sender: TObject);
    procedure BtnSend4Click(Sender: TObject);
    procedure BtnSend5Click(Sender: TObject);
    procedure BtnSend6Click(Sender: TObject);
    procedure RS2321Click(Sender: TObject);
    procedure Ethernet1Click(Sender: TObject);
private
    { Private-Deklarationen }

  public
    { Public-Deklarationen }

  end;

  //Deklarationen
  procedure BtnSend(BefehlNr: Integer; Befehl:String);
  procedure RS232Send(BefehlNr: Integer; Befehl:String);


     .....


//*************************
// RS232: Senden BefehlNr()
//*************************
procedure RS232Send(BefehlNr: Integer; Befehl:String);
begin
  ListBox1.xxxxxx //Hier ist die ListBox unbekannt
  Exit;

End; //RS232Send
Schiebe ich die Deklarationen der eigenen Prozeduren hoch in Private oder Public geht garnichts mehr ... warum ka !
Hilfe Hilfe ich weiss nicht weiter ... und Ja es fehlen auch die Grundlagen

LG Philip
[x] hier anbohren für neuen Monitor
  Mit Zitat antworten Zitat