Hallo
Ich hoffe ihr könnt mir weiter helfen: Ich schreibe meine Facharbeit in Informatik und muss dazu ein Programm mit Delphi erstellen.
Ich muss dazu sagen, dass ich kompletter Anfänger bin, was Delphi betrifft.
Das Programm ist für einen Segelverein, der Gastlieger bekommt: Je nach Dauer des Aufenthalts (T), Länge des Bootes (L) und Anzahl der benötigten Duschmarken (D) soll errechnet werden, was der ganze Spaß kosten soll. Dann soll das Programm im Hintergrund diese Summen abspeichern, sodass sie nach Passwortabfrage wieder erscheinen und man beispielsweise Abrechnungen damit machen kann.
Mein Problem ist folgendes: Ich bekomm schon allein die Berechnung nicht hin
Hier mein Quelltext:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
TForm1 =
class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
edtL: TEdit;
edtT: TEdit;
edtD: TEdit;
edtS: TEdit;
btnRechnen: TBitBtn;
procedure btnRechnenClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btnRechnenClick(Sender: TObject);
var L, T, D, a, Ausgabe: real;
Laenge:
String;
begin
L:=StrToFloat(edtL.Text);
T:=StrToFloat(edtT.Text);
D:=StrToFloat(edtD.Text);
begin
if L<=7
then a:=6
end;
begin
if L>7
and L<8.1
then a:=7
end;
begin
if L>8
and L<9.1
then a:=8
end;
begin
if L>9
and <10.1
then a:=9
end;
begin
Ausgabe:=(L*T)+D;
edtS.Text:=FloatToStr(Ausagbe);
end;
end.
Ich hoffe ihr könnt mir weiter helfen
Liebe Grüße