Hi,
ich bin ein Delphianfänger und ich brauche euere Hilfe. Ich habe eine BedinerÖberfläche, der aus 2 knöpfen besteht. das Code sieht so aus:
Delphi-Quellcode:
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm3 =
class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form3: TForm3;
implementation
uses Unit1, unit2;
{$R *.DFM}
procedure TForm3.Button1Click(Sender: TObject);
begin
if Gerätingrundstellung
then
CuMerker:=true;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
if Gerätingrundstellung
then
AluMerker:=true;
end;
procedure TForm3.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=cafree;
Form1.Bedienungsansicht1.Checked:=false;
end;
end.
FRAGE : wie kann man das CODE als KONSOLENPROGRAMM schreiben, für jede Hilfe bin ich dankbar.
[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte selbst machen - Mfg, SirThornberry[/edit]