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