Progblem mit CD öffnen/schließen programm

[D0N]

Hallo,
ich wollte für meinen Freund ein Programm schreiben in dem er in ein Edit feld eingibt welchen buchstaben er auswerfen will

Delphi-Quellcode:

unit test1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, mmsystem;

type
  TForm1 = class(TForm)
    edit1: TLabeledEdit;
    Button1: TButton;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure OpenCDDrive(const ADriveChar: Char; Open: Boolean);
begin
  if Length(edit1.text, true) > 0 then
    OpenCDDrive(edit1.text[1],true);
  if mciSendString(PChar('open '+ADriveChar+': type cdaudio alias cdlw'),
                   Nil,
                   0,
                   0) = 0 then
  begin
    if Open then
      mciSendString('set cdlw door open wait', Nil, 0, 0)
    else
      mciSendString('set cdlw door closed wait', Nil, 0, 0);
    mciSendString('close cdlw', Nil, 0, 0);
  end;
end;

end.

nun hab ich das problem

[Fehler] test1.pas(28): Undefinierter Bezeichner: 'edit1'

und ich weiß net wieso O.o

mfg

[Larsi]

in deinem code steht doch gar nichts von nem edit oda???

[D0N]

ja es is ein Labelededit

aber ich hab ihn mal geändert in edit1 weil er es auch schon rumgemosert hat

...

deswegen O.o

[Crazy Ivan]

entweder du schreibst

Delphi-Quellcode:

form1.edit1.text

(wenn du überhaupt ein edit hast?!?)

oder du machst die procedure OpenCDDrive zu einer methode deiner tform1, so:

Delphi-Quellcode:

// ...
type
  TForm1 = class(TForm)
    edit1: TLabeledEdit;
    Button1: TButton;
    procedure OpenCDDrive(const ADriveChar: Char; Open: Boolean); 

// ...

[inherited]

Entweder du deklarierst die Methode als Member der Klasse TForm1 oder du schreibst Form1. vor edit1
Hintergrund ist, dass dein edit ein Variable deiner Form-Klasse ist, deine Methode OpenCDDrive allerdings nicht. Deshalb kennt sie dein edit1 nicht.

[freak4fun]

Zitat:

Zitat von Larsi

in deinem code steht doch gar nichts von nem edit oda???

Zeile 28?

Entweder du packst die Prozedur in die Klasse TForm1 oder schreibst Form1.Edit1. ... :) Ich wäre dafür die Procedur als Klassenmethode zu schreiben. ;)

[Crazy Ivan]

[OT] dito, dito, ich war schneller :D [/OT]

[D0N]

auf deutsch bitte ich mach erst seit 2 wochen delphi O.o

n beispiel oder so

währe nett bitte ^^

mfg

[Crazy Ivan]

mhm, was ist daran so schwer? ich hab dir bereits zwei bespiele gegeben

[shmia]

Zitat:

Zitat von freak4fun

Ich wäre dafür die Procedur als Klassenmethode zu schreiben. ;)

Nein, im Gegenteil, die Procedure sollte so bleiben !

Delphi-Quellcode:

procedure OpenCDDrive(const ADriveChar: Char; Open: Boolean);

Die Übergabeparameter sind ja schon vorhanden, man muss sie nur benützen.
Man kann diese Procedure dann in eine Utility Unit packen und in mehreren Anwendungen einbinden.
Einmal programmieren - öfters verwenden.