Forum: Object-Pascal / Delphi-Language
Delphi
by Darksniper,
13. Jul 2007
hier
http://img29.picoodle.com/img/img29/9/7/13/f_Hmmm_61824db.png
Forum: Object-Pascal / Delphi-Language
Delphi
by Darksniper,
13. Jul 2007
vergiss das bitte mit der minutenangabe
bei
Label64.Caption :=IntToStr (((200+1000)div(1000*(1+FL)))*60);
ist das problem folgendes:
wenn FL=0 dann zeigt das label immer 60 an
wenn FL nicht 0 ist zeigt das label immer 0 an
Forum: Object-Pascal / Delphi-Language
Delphi
by Darksniper,
13. Jul 2007
Label64.Caption :=IntToStr (((200+1000)div(1000*(1+FL)))*60);
das ergebniss soll ne minutenanzeige sein
delphi rechent das aber nicht so aus wie es da steht
Forum: Object-Pascal / Delphi-Language
Delphi
by Darksniper,
13. Jul 2007
jetzt hab ich n anderes problem
procedure TForm3.Button9Click(Sender: TObject);
var stufe,Fl,Rf,Nf,Stufe2,M : Integer;
begin
stufe := StrToInt (Edit31.Text);
stufe2 := Stufe-1;
Rf := StrToInt (Edit32.Text);
Nf:= StrToInt (Edit33.Text);
Fl := StrToInt (Edit34.Text);
Forum: Object-Pascal / Delphi-Language
Delphi
by Darksniper,
13. Jul 2007
danke
es funktioniert :-D
aber was mach Trunc :?:
Forum: Object-Pascal / Delphi-Language
Delphi
by Darksniper,
13. Jul 2007
ups
in
m1:=200*power(2,Stufe2);
ist der Fehler
Forum: Object-Pascal / Delphi-Language
Delphi
by Darksniper,
13. Jul 2007
ok bin dabei es durchzulesen
ich hab jetzt n bischen am code geändert
so sieht es jetzt aus
if ComboBox1.ItemIndex = 0 then
begin
m1:=200*power(2,Stufe2);
Label57.Caption := InttoStr (m1);
Forum: Object-Pascal / Delphi-Language
Delphi
by Darksniper,
13. Jul 2007
procedure TForm3.Button9Click(Sender: TObject);
var stufe,Fl,Rf,Nf,Stufe2 : Integer;
begin
stufe := StrToInt (Edit31.Text);
stufe2 := Stufe-1;
Rf := StrToInt (Edit32.Text);
Nf:= StrToInt (Edit33.Text);
Fl := StrToInt (Edit34.Text);
if ComboBox1.ItemIndex = 0 then
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by Darksniper,
12. Jul 2007
das ist die ganze geschicht
procedure TForm3.Button9Click(Sender: TObject);
var stufe,Fl,Rf,Nf : Integer;
begin
stufe := StrToInt (Edit31.Text);
Rf := StrToInt (Edit32.Text);
Nf:= StrToInt (Edit33.Text);
Fl := StrToInt (Edit34.Text);
if ComboBox1.ItemIndex = 0 then
Forum: Object-Pascal / Delphi-Language
Delphi
by Darksniper,
12. Jul 2007
also
if ComboBox1.ItemIndex = 0 then
Label57.Caption := 200*2^(Stufe-1);
Label58.Caption := 1000*2^(Stufe-1);
Label57.Caption := 200*2^(Stufe-1);
ogame1.pas(456): E2396 Unsicherer Code ist nur in unsicheren Prozeduren zulässig
Forum: Object-Pascal / Delphi-Language
Delphi
by Darksniper,
12. Jul 2007
was ist ein unsicherer Code?
Forum: Object-Pascal / Delphi-Language
Delphi
by Darksniper,
12. Jul 2007
danke
du hast mir gerade sehr viel tipperei erspaart
Forum: Object-Pascal / Delphi-Language
Delphi
by Darksniper,
12. Jul 2007
danke
if ComboBox1.Text = '1a' then
Label1.Caption := '100'
else if ...
is genau das was ich such.
was ist eigentlich der Index. :gruebel:
Forum: Object-Pascal / Delphi-Language
Delphi
by Darksniper,
12. Jul 2007
Ok
Ich erweitere es ein bisschen
Wenn die Combobox "1a" anzeigt,soll das Label 100 anzeigen
Bei "2a" soll das llabel 200 anzeigen
Und bei "3a" soll es 300 anzeigen
Alles wird ausgelöst vom Button9
Wie lautet da der code?
Forum: Object-Pascal / Delphi-Language
Delphi
by Darksniper,
12. Jul 2007
hi
Es geht um folgendes:
Ich hab ne ComboBox die 3 zeilen enthällt (1a;2a;3a)
Ich will die Caption eines Labels verändern wenn ich eine Zeile auswähle
z.b.wenn ich ich "2a" auswähle soll das Label (200) anzeigen