Ok habs hinbekommen in der zeile Uses müssen die classen(sind das classen?) neu definit werden ok aber trozdem hab ich nen fehler da ich selber eigentlich fast nur mit Delfi programire finde ich die lösung nicht unter delfi leuft es so einwandfrei, und zwar bekomme ich wenn ich auf button1 klieke ne fehlermeldung und das Prog. schmirt ab der compiler meldet leider nichts
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
Ohm:=((Spannung-(U*Anzahl))/((I*Anzahl)/1000));
IF Ohm <=0
THEN
begin
EdtOhm.Clear;
ShowMessage('Kein Widerstand benötigt, da zu wenig Spannung bereitgestellt!'+ #13 +'Die Summe der LED Spannungsaufnahme ist größer als die bereitgestellte Versorgungsspannung.');
end
ELSE
EdtOhm.Text:=FormatFloat('0.0',Ohm);
end;
Ohm:=((Spannung-(U*Anzahl))/((I*Anzahl)/1000)); <--- bei der zeile bleibt er stehen
Lesezeichen