Ich hab wieder ein Problemchen, diesmal bei der Datenausgabe.
Ich hab in der Case-Anweisung die Motorbezeichnung gesetzt, jetzt will ich die auch ausgeben. Allerdings geht es nicht. Ich steh grad irgentwie voll aufm Schlauch
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, unit2, unit3;
type
TForm1 =
class(TForm)
RadioGroup1: TRadioGroup;
Memo1: TMemo;
Ed_L_H: TEdit;
Ed_Rw: TEdit;
Ed_L_E: TEdit;
Anlegen: TButton;
procedure AnlegenClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
Auto: TFahrzeug;
M_Leistung:
string;
M_Bezeichnung:
string;
implementation
{$R *.dfm}
procedure TForm1.AnlegenClick(Sender: TObject);
begin
case Radiogroup1.itemindex
of
0:
begin
Bezeichnung := '
Verbrennungsmotor';
Memo1.lines.Add(M_Bezeichnung);
end;
1 :
begin
M_Bezeichnung:= '
Elektromotor';
end;
2 :
begin
M_Bezeichnung:= '
Hybridantrieb';
end;
3 :
begin
M_Bezeichnung:= '
Wasserstoffantrieb';
end;
end;
end;
end.
Delphi-Quellcode:
unit Unit2;
//Fahrzeug allgemein
interface
uses sysutils;
Type TFahrzeug =
class (TObject)
private
public
constructor create (M_Bezeichnung:
string; M_Leistung:
string);
function getleistung:
string;
function getMotorBezeichnung:
string;
virtual;
//function getreichweite: integer; virtual; abstract;
end;
var
Bezeichnung:
string;
Leistung:
string;
M_Leistung, M_Bezeichnung:
string;
implementation
constructor TFahrzeug.create (M_Bezeichnung:
string; M_Leistung:
string);
begin
Bezeichnung := M_Bezeichnung ;
M_Leistung :=Leistung ;
end;
function TFahrzeug.getleistung:
string;
begin
result := Leistung ;
end;
function TFahrzeug.getMotorBezeichnung:
string;
begin
result:= Bezeichnung;
end;
end.