Hilfe nap-frage Part wird uebersprungen

Alucard · 14. Februar 2006

So wir ham nun mit delphi angefangen und ich sowie mein kumpel ham das problem das der mittlere Teil unseres programms ueber schrieben wird

es ist der teil " then label1.Caption:='Das ist schön.Noch immer?'
else label1.Caption:='Nicht gut,hoffe es wird besser';
bitbtn1.caption:='Jo noch immer';"

er wird ausgelassen und es erscheint sofort "naja es wird schon besser werden"

hackt nicht auf mir rum , unser info lehrer hat es uns noch nicht richtig vermittel und wir wolln keine woche warten bis wir fragen koennen ^^

Code:

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
 BitBtn1: TBitBtn;
 Label1: TLabel;
 procedure BitBtn1Click(Sender: TObject);
 private
 { Private-Deklarationen }
 public
 { Public-Deklarationen }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 if label1.caption='Wie geht es dir?'
 then label1.Caption:='Das ist schön.Noch immer?'
 else label1.Caption:='Nicht gut,hoffe es wird besser';
 bitbtn1.caption:='Jo noch immer';


 begin
 if bitbtn1.caption='Jo noch immer'
 then label1.caption:='Schön das es dir selbst jez noch gut geht'
 else label1.Caption:='Naja es wird schon besser werden ;)'
 end;

end;

end.

Anzeige

didda · 15. Februar 2006

Original von Alucard

Code:

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
 BitBtn1: TBitBtn;
 Label1: TLabel;
 procedure BitBtn1Click(Sender: TObject);
 private
 { Private-Deklarationen }
 public
 { Public-Deklarationen }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 if label1.caption='Wie geht es dir?' << Vorraussetzung die erfüllt sein muss
 then label1.Caption:='Das ist schön.Noch immer?' << label wird das erste mal umbenannt
 else label1.Caption:='Nicht gut,hoffe es wird besser'; << oder hier das erste mal
 bitbtn1.caption:='Jo noch immer'; << die caption des speedbuttons wird auf jo noch immer gesetzt


 begin
 if bitbtn1.caption='Jo noch immer' << hier begint das prob, der button ist auf jo noch immer
 then label1.caption:='Schön das es dir selbst jez noch gut geht' << also wird das label wieder umbenannt
 else label1.Caption:='Naja es wird schon besser werden ;)'
 end;

end;

end.

wie du also siehst ist das problem dass du das label innerhalb einer prozedur zweimal umbenennst, aldo musst du den zweitel teil entweder exportieren oder von etwas anderem abhängig machen oder auf ein anderes label übertragen oder sons was

Nützliche Suchen

Hilfe nap-frage Part wird uebersprungen

Videos zum Themenbereich