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

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 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 [/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 von freak4fun:

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

Nein, im Gegenteil, die Procedure sollte so bleiben !
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.