Deutsches Lazarusforum

Ah danke das funktioniert sehr sehr gut danke dir komisch so ähnlich sah mein einer Versuch auch aus wer weiß was ich falsch gemacht habe sitze schon 10h davor


danke für die Hilfe

Ok machen wir einmal ein anderes Beispiel aber danke erst einmal für die schnellen Antworten.


Eigentlich ist es ja egal welche Dezimalzahl raus kommt hauptsache es ist eine mit einer Kommastelle.

Machen wir einmal so: a=5, b=20


Dann müsste t=0,25 sein. So und das würde ich gerne in Stunden ...

Guten Abend,

Ich hab da eine Frage, bestimmt schon 1000 mal gestellt, aber ich finde nichts was mir weiter bringt. -.-

Für den ein oder anderen bestimmt ganz einfach:


procedure TForm1.Button1Click(Sender: TObject);
var a,b,t:real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);

t ...

Note: Local variable "ress" is assigned but never used

das mit zu langen Integer hab ich selbst verschuldet ^^ hatte leider ein Wert zu viel eingegeben aber nun kommt das bei dem array wie gesagt hab das array global geschrieben oder muss das woanders hin? Berechnen tue ich wie in dem alten Tool ...

hmm ich bin zu blöd dafür und auch anscheinend zu lang raus um mit arrays zu arbeiten. Hab kp wo ich das jetzt eintrage. Hatte es unter den globalen Variablen aber der spuckt mir immer etwas mit LongInt als fehler aus.


Sagt mal kann man auch alles einzeln deklarieren?

procedure TForm1 ...

danke für deine Hilfe ich werde das nachher mal ausprobieren

Also zum Beispiel Metallmine 25 hat eine Produktion von 8.641 Metall / Stunde

im Edit was du da siehst gibst du dann die Metallmenge ein die auf dem Fremden Planeten liegt. z.b. 251839 dann kommt bei Zeit raus: 1Tage 5h 8min 41sec


und genau das soll es auch machen. Ich weiß noch in etwa das ich ...

Danke erst einmal für deine schnelle Antwort,

Nein ich hab mit Metallmine 25 angefangen da es darunter eigentlich kein Sinn macht.

Ich habe unten mal das alte Programm angefügt, so wie es da unten ist soll es wieder werden nur mit mehr Edit Fenster z.b. Wo man die Uhrzeit vom Spionagebericht ...

Hallo an alle ich hab da eine kleine Frage zur Combobox.

Nachdem ich mir nun bei google 2h ein paar Beiträge überall mal durch gelesen habe bin ich zwar mit dem Erstellen von einträgen in der Combobox vertraut aber noch steht am Anfang ein großen Fragezeichen.


Eigentlich ist es ganz einach. Ich ...

Danke erst mal für deine Hilfe,

So falls ich mich nicht verständlich ausdrücken kann probier ich das noch einmal.

Also das Program im groben habe ich schon in einer Excel Datei fertig. Daher weiß ich genau wie es werden soll und aussehen soll.

Im groben Zusammengefasst: Es soll Werte zusammen ...

hab ich auch schon überlegt aber weiß auch nicht mehr was ich noch nehmen soll ^^ nur das change bounce oder wie das jetzt heißt vielleicht noch

Guten Abend exc-jdbi, :)

ich habs gestern Nachmittag irgendwie selbst hin bekommen gehabt :D also zumindest macht er das was er soll und es kommt kein Fehler.

So sieht das mom bei mir aus....

procedure TForm1.Edit1Change(Sender: TObject);

begin

if not TryStrToFloat(edit1.text,h) then
begin ...

Ich danke dir ganz ganu dolle für deine Hilfe ^^ ich habs entlich :D

procedure TForm1.Edit1Change(Sender: TObject);
begin

if not TryStrToFloat(edit1.text,h) then
begin
edit1.text:='0';
end;

begin
ergebnis:=StrToFloat(Edit1.Text)*1200;
Label9.Caption:=FloatToStr(ergebnis);
end;
end ...

selber fehler leider irgendwas is hier verkehrt glaube ich fange nochmal ganz von vorn an manchmal hilft das ja

jetzt zeit er mir das Label9.Caption:=FloatToStr((dblZahl),ffNumber,12,3); als fehler an

dann kommt unit1.pas(65,24) Error: Wrong number of parameters specified for call to "FloatToStr"


selbe Zeile ^^ ich glaub ich starre heut schon zulange hier rauf