unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label14: TLabel;
EditSchnitt: TEdit;
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1; note1:double; note2:double;
note3:double;
note4:double;
note5:double;
note6:double;
note7:double;
note8:double;
note9:double;
note10:double;
note11:double;
note12:double;
note13:double;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
edit2.Text:=edit1.text;
edit3.Text:=edit1.text;
edit4.Text:=edit1.text;
edit5.Text:=edit1.text;
edit6.Text:=edit1.text;
edit7.Text:=edit1.text;
edit8.Text:=edit1.text;
edit9.Text:=edit1.text;
edit10.Text:=edit1.text;
edit11.Text:=edit1.text;
edit12.Text:=edit1.text;
edit13.Text:=edit1.text;
editSchnitt.Text:=edit1.text;

label3.font:=label1.font;
label4.font:=label1.font;
label5.font:=label1.font;
label6.font:=label1.font;
label7.font:=label1.font;
label8.font:=label1.font;
label9.font:=label1.font;
label10.font:=label1.font;
label11.font:=label1.font;
label12.font:=label1.font;
label13.font:=label1.font;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
close
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
note1:=StrToFloat(edit1.text);
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
editschnitt.text:=FloatToStr(note1)
end;

end.

so sieht meine unit aus. ich weiss jetzt nicht wie ich es hinbekomme das er alle edit.texte zusammenzählt und durch 13 (anzahl der felder) teilt und das dann in das kästchen schreibt.
alle meine versuche sind gescheitert
pls help

..::Follow the rabbit ::..

OMG! Also dann solltest du mal drüber nachdenken ob programmieren wirklich das richtige für dich ist!

Ich versteh übrigens auch nicht was das ganzenQuellcode:edit13.Text:=edit1.text;
(...)
label3.font:=label1.font;Zeug soll?!

Es heisst noch dazu Delphi, und nichts mit nem "f"!
Ich schreib das ganze mal so ausm Kopf.Quellcode:procedure TForm1.RechneClick(Sender: TObject);
var
Zensuren: Double;
begin
Zensuren := StrToFloat(Edit1.Text) + StrToFloat(Edit2.Text) + StrToFloat(Edit3.Text) + (...) + StrToFloat(Edit13.Text);
EditSchnitt.Text := FloatToStr(Zensuren / 13);
end;So gehts!
Ist aber keine elegante Lösung...

Normalerweise würde man das mit ner Schleife machen die alle Edits nacheinander abfragt, aber da du das eh net kapieren wirst spaare ichs mir... >;)

P.S.: Boa man bin ich heute blöd...
Mir will grad einfach nicht einfallen wie der "kleine Bruder" von Double heisst... lol Kann mir mal schnell jemand auf die Sprünge helfen, ich hab nen Hirnkrampf, es is irgendwas mit nem "s" *g*

shielding people from their own stupidity is an evolutionary step backwards anyway.

/* God is dead!............Nietzsche */
/* Nietzsche is dead!......God */
/* Nietzsche is God!.......The Dead */

retro.. wie wär's mit Single? =)

gegen Hirnkrampf hilft Gummihammer, Mixer oder Slipknot.

caedes

Deutschland rückt nach Einschätzung der Sicherheitsbehörden im Superwahljahr verstärkt ins Visier von Terroristen.

Real meinte ich natürlich!

(Idee sponsored by Left Behind=)

shielding people from their own stupidity is an evolutionary step backwards anyway.

/* God is dead!............Nietzsche */
/* Nietzsche is dead!......God */
/* Nietzsche is God!.......The Dead */

real ist doch end der kleine bruder von double...
real hat 11 stellen genauigkeit
single 7 stellen genauigkeit
und double 15 stellen genauigkeit
dann gibt's noch extended mit 19-20 stellen genauigkeit, aber soo genau willich meinen notendurchschnitt dann doch ned wissen.. ich runde eh immer auf die bessere Zensur auf =)

und single ist wie double bloß halbsoviel (da 1 = (1/2)*2)
also ist single doubles kleiner bruder. real ist vielleicht ein cousin oda sowat.

caedes

Deutschland rückt nach Einschätzung der Sicherheitsbehörden im Superwahljahr verstärkt ins Visier von Terroristen.

ui
man

-FreakAlarm-

scheisse, is delphi noch schwerer als c++ ????

www.virus-mod.de.vu <- die neue Mod, zur Vorgeschichte von Half-Life (*lol* steht noch nich in der Story auf der Hp ... is eben noch nich formuliert)

LOL

BattleTech-MOD:
http://bthl.unitedgaming.net/

-FreakAlarm- weil du kein Plan hast?! lol

Ich würd eher sagen

-SpamAlarm-

Das mit den Variablen-Typen nennt man -G-R-U-N-D-W-I-S-S-E-N- das man in jeder Programmiersprache braucht...

Und *juhu* ich hab meine Tabelle wieder gefunden, da sind alle Variablen schön aufgelistet... alles auf einen Blick =)

Hast natürlich recht caedes..

shielding people from their own stupidity is an evolutionary step backwards anyway.

/* God is dead!............Nietzsche */
/* Nietzsche is dead!......God */
/* Nietzsche is God!.......The Dead */

was meinst du, wo ich das nachgeguckt hab =)

delphi schwerer als c++?! rotfl.. delphi ist soo megasimpel, dat checkt jeder DAU (okay fast jeder.... *nachobenschiel*) in 2 stunden oda so..

caedes

Deutschland rückt nach Einschätzung der Sicherheitsbehörden im Superwahljahr verstärkt ins Visier von Terroristen.

oh gott wasn schlimmer fehler delfi statt delphi
lol ne mal im ernst ich lache über meine frage,sry aber wir lernen delphi in der schule und ich hab absolut kein bock drauf.

edit13.Text:=edit1.text; //hatte kein bock für jedes editfeld erst einzugeben das nichts drinne steht
(...)
label3.font:=label1.font; //ich war zu faul die schrift für die ganzen labels einzustellen...

und caedes wir machen delphi seit 2 tagen (also 2*45mins) und sry aber ich finde die sprache überflüsig ich würd lieber gleich c++ lernen, ich verspreche jetzt hier nicht mehr mit solchen fragen zu stören ;PP

..::Follow the rabbit ::..

Erm, wenn du schon solche Probs mit Delphi hast, wirst du bei C++ bluten!

Und ich weis nicht zu der faulheit... schreibst du lieber zig Zeilen voller code, oder stellst das ganze von anfang an schon ein?!

shielding people from their own stupidity is an evolutionary step backwards anyway.

/* God is dead!............Nietzsche */
/* Nietzsche is dead!......God */
/* Nietzsche is God!.......The Dead */

wenn das einzeln einstelle da brauche ich länger,und ich hab bei delphi probs weil ich kein bock drauf hatte und nich aufgepasst habe...
in c++ habe ich interesse und ich glaube kaum das du das beurteilen kannst!

..::Follow the rabbit ::..

Weisst du was du mich mal kannst...

shielding people from their own stupidity is an evolutionary step backwards anyway.

/* God is dead!............Nietzsche */
/* Nietzsche is dead!......God */
/* Nietzsche is God!.......The Dead */

Zitat:

shenZi postete

edit13.Text:=edit1.text; //hatte kein bock für jedes editfeld erst einzugeben das nichts drinne steht

hehe, wie schei** doof muss man sein, um sich so ne dumme Rechtfertigung auszudenken.
Sorry, aber es wäre schneller gegangen, hättest du es bei text gelöscht und zweitens wird der Code kleiner/besser lesbar für andere / exe-Datei wird kleiner /man wird nicht für ein noob gehalten :)

Und vorallem auch nicht für nen Arschloch!

Wenn man schon versucht zu helfen, und dann nur dreckige Antoworten kriegt kann man auch ganz schnell mal sauer werden! >=|

shielding people from their own stupidity is an evolutionary step backwards anyway.

/* God is dead!............Nietzsche */
/* Nietzsche is dead!......God */
/* Nietzsche is God!.......The Dead */

lolol
is mir scheiss egal für was ich gehalten werde aufgrund eines dreckigen stückes delphi codes...
ausserdem haste schonmal was von strg+c und strg+v gehört, meinste ich ahb das einzeln getippt???
und @ retro ich hab dich kein stück beleidigt,wenn du gleich weinst nur weil ich sag dass du es nicht beurteilen kannst dann kann ich nichts dafür

..::Follow the rabbit ::..

und was machst du wenn es nicht um 13 Felder geht sondern um 100+ ?
auch Copy & Paste?

Zitat:

shenZi postete
lolol
ausserdem haste schonmal was von strg+c und strg+v gehört, meinste ich ahb das einzeln getippt???

Ja, das glaube ich. Sonst noch Fragen ?

hhmmmmm nagut:

also
1.) ja ich hab keine ahnung von delphi
2.) hmm lol delphi leicht, naja ansichtssache ... könnt ihr mir mal nen prog nenn (eines, was jeder kennt) das is delphi geschrieben is?

cya

www.virus-mod.de.vu <- die neue Mod, zur Vorgeschichte von Half-Life (*lol* steht noch nich in der Story auf der Hp ... is eben noch nich formuliert)

Wenigstens weisste das es Delphi geschrieben wird...

Kennst doch bestimmt das Programm Phase 5² das wurde in Delphi geschrieben. Ansonsten kenn ich noch diverse FTP-Programme und ne TV-Software. Auch viele Cracks sind in D geschrieben...

shielding people from their own stupidity is an evolutionary step backwards anyway.

/* God is dead!............Nietzsche */
/* Nietzsche is dead!......God */
/* Nietzsche is God!.......The Dead */

ok
dann is ja gut =)

is irgendwie so unbekannt, ich weis nich ... ;-)

www.virus-mod.de.vu <- die neue Mod, zur Vorgeschichte von Half-Life (*lol* steht noch nich in der Story auf der Hp ... is eben noch nich formuliert)

Naja......unbekannt ist es mit sicherheit nicht!

BattleTech-MOD:
http://bthl.unitedgaming.net/