Exceptions behandeln... Ich glaun ich bin zu plöd....

[Kedariodakon]

Zitat von CenBells:

hi,

du musst dir eine variable definieren

Delphi-Quellcode:

try
...
except
  on e: EOleException do begin
  // hier kannst du jetzt was mit e machen..  
  end;
end;

Gruß
Ken

Danke das mit E hat soweit funktioniert...
Aber ein Prob hab ich immer noch:


Hier nochmal der Code mit dem E-Prinzip erweitert:

Delphi-Quellcode:

procedure TForm1.TButton_ConnectClick(Sender: TObject);

  procedure GetError(Error:EOleException);
  begin
      LException.Caption := 'EOleException';
      LHelpFile.Caption := Error.HelpFile;
      LSource.Caption := Error.Source;
      //LErrorCode.Caption := Error.ErrorCode;
      LHelpContext.Caption := IntToStr(Error.HelpContext);
      LMessage.Caption := Error.Message;
  end;

begin
  TButton_Connect.Enabled :=  False;
  TButton_Disconnect.Enabled := False;
  try
    SetConnectionString(TADOConnection_SQL);
    TADOConnection_SQL.Open;
  except
    on Error:EOleException do GetError(Error);
    {*
    on Error:EOleException do begin
      GetError(Error);
    end
    Else begin
    end;
    *}
    TButton_Connect.Enabled :=  True;
    TButton_Disconnect.Enabled := False;
  end;
end;

Warum geht:
on Error:EOleException do GetError(Error); Nicht?
Warum muß es:

Delphi-Quellcode:

    on Error:EOleException do begin
      GetError(Error);
    end
    Else begin
    end;

Sein damit es geht? Kapier ich nicht

MFG Keda