Boolean fehler

[Gilmohr]

ah ja klar !! ^^
danke jetzt seh ichs auch. ...ist wohl doch schon bisl spät
hab jetzt die bedingung für false oben schon mit rein genommen und schon läufts.

Danke !!

[Luckie]

Das muss ich jetzt nicht verstehen oder?

[Gilmohr]

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

Code:

procedure TForm1.Button1Click(Sender: TObject);

var a: integer;

begin
  memo1.Clear;
  a := 0 ;
  repeat
    v[a] :=  FloatToStr((Volumenstrom * 4) / ( StrToInt(d[a]) * 3.1416 * 1000 ));
    memo1.Lines.add(v[a]);
    inc (a);
  until
    a = j

end;

[Luckie]

Und warum keine for-Schleife? Damit sparst du dir das hochzählen von a und die Abbruchbedingung.

[Gilmohr]

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.

[Gilmohr]

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 weils aufem bildschirm besser aussieht.

also neue frage
kann ich das auch genaus wie bei dem memo feld machen, dass er mir nen StrinGrid in der nächsten zeile erstellt? und anstatt memo1.clear das er dann den ganzen stringGrid löscht?

[Luckie]

Also das mit der globalen Variable j kommt mir sehr gefährlich vor und schreit gerade zu nach Fehlern, die man nicht findet. Auch solltest du die Oberfläche von der Berechnung und den Daten trennen.

Für eine neue Frage eröffne bitte auch einen neuen Thread.

[Gilmohr]

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-w...s-hamburg.html

werd dann alles weitere was ich gerade schrieben wollte und den quellcode dazu dann dort posten

[Medium]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  K = 0.00127323954473; // ~= 4 / (PI*1000)
var
  a: integer;
begin
  memo1.Clear;
  for a := 0 to j do
    memo1.Lines.add(FloatToStr((Volumenstrom*K)/StrToInt(d[a])));
end;

Edit: Hallo roter Kasten, hallo Luckie
Edit2: An der Formel bissl gedreht. Weitgehend Kosmetik.

[Luckie]

Wo kommt j und das Array d her?

Delphi-Quellcode:

for a := 0 to Length(d) - 1  do
  memo1.Lines.add(FloatToStr((Volumenstrom*K)/StrToInt(d[a])));

Schon brauchen wir J nicht mehr.

Und Laufvariablen benennt man üblicherweise (aus historischen Gründen) mit i.

Und was spricht dagegen das jetzt zu verbessern? Das erhöht die Lesbarkeit- und Verständlichkeit.