Forum: Object-Pascal / Delphi-Language
by Gilmohr,
27. Mär 2011
array d ist der durchmesser.
im prinzip ist da also noch ein fehlrr in der formel weil d noch zum quadrat muss. (darum wollte ich mich später kümmern)
Forum: Object-Pascal / Delphi-Language
by Gilmohr,
27. Mär 2011
das programm gehört zu dem Projekt das ich mal in nem andere thread angesprochen hab und nach hilfe gesucht hatte.
http://www.delphipraxis.net/158789-wer-kann-helfen-und-ist-aus-hamburg.html
werd dann alles weitere was ich gerade schrieben wollte und den quellcode dazu dann dort posten
Forum: Object-Pascal / Delphi-Language
by Gilmohr,
27. Mär 2011
J bruach ich unbedingt.
ist keine einfache laufvariable sondern damit werden aus dateien einzelen strings ausgelesen und in nen StringGrid reingeschrieben wo verschiedene sachen aufgelistet werden.
diese berechnung hier ist nue eine von mehreren bie denen j genaus verwendet werden soll.
wollte das erst mit nem memo feld berechnen, aber denke es ist auch besser das im StringGrid zu machen...
Forum: Object-Pascal / Delphi-Language
by Gilmohr,
27. Mär 2011
mit For schleife hatte ich probiert...aber das hab ich nicht so hinbekommen ...und nu läufts ja. ob das schön gecodet ist spielt für mich momentan keine rolle. soll nur irgendwie laufen.
@Medium: cool ! danke, werd das auch mal so einbauen.
Forum: Object-Pascal / Delphi-Language
by Gilmohr,
27. Mär 2011
nee ^^ ... musst wissen das ich noch delphi anfänger bin.
aber habs jetzt auch ganz ohne boolean hinbekommen weil er zwar die anwendung gestartet, sich dann aber bei der rechnung gehangen hat.
so funktionierts ohne probleme
procedure TForm1.Button1Click(Sender: TObject);
var a: integer;
Forum: Object-Pascal / Delphi-Language
by Gilmohr,
27. Mär 2011
ah ja klar !! ^^
danke jetzt seh ichs auch. ...ist wohl doch schon bisl spät :shock:
hab jetzt die bedingung für false oben schon mit rein genommen und schon läufts.
Danke !!
Forum: Object-Pascal / Delphi-Language
by Gilmohr,
27. Mär 2011
Hi, hab grad mal ne Frage, evtl ist jemand wach und kann mir kurz sagen wo der fehler liegt?
hier der code:
procedure TForm1.Button1Click(Sender: TObject);
var a: integer;
begin
a := 0 ;