Operator ist auf diesen Operandentyp nicht anwendbar

[KnutschKugel]

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

[mkinzler]

In welcher Zeile erscheint der Fehler?

[KnutschKugel]

49 - 58

Also quasi ab der Zeile wo ich ihm sagen möchte:
'von 7 bis 8,1 berechne für a = 7'

[mkinzler]

Richte erst mal deine Blöcke

Delphi-Quellcode:

then
begin 
   <Zuweisung>
   ...
end;

und nicht

Delphi-Quellcode:

then
  <Zuwesiung>
begin
   ...
end,

[Die Muhkuh]

Erstmal Herzlich Willkommen in der DP

Du hast in Deinem Code sowieso unnütz viele begin end Konstrukte drin.

Hier mal übersichtlicher:

Delphi-Quellcode:

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);

  if L <= 7 then 
    a := 6;

  if (L > 7) and (L < 8.1) then 
    a := 7;

  if (L > 8) and (L < 9.1) then 
    a := 8;

  if (L > 9) and (L < 10.1) then 
    a := 9;

  Ausgabe := (L * T) + D;
  edtS.Text := FloatToStr(Ausagbe);
end;

Dein Fehler ist damit auch behoben.

[himitsu]

Klammern setzen?

or und and hat Vorrang vor < und >
[edit]
das Tier war schneller, aber da er den Grund für den Fehler zwar behoben, aber nicht benannt hat, war ich schneller

PS:
Es kann sein, daß a nicht gesetzt wurde.
Kennst du <= ? Wobei das eher nach einem Trunc aussieht.
Und wo wird a eigentlich verwendet?

[Sir Rufo]

Die Berechnung ist falsch

Ausgabe := ( L * T ) + D; Hier wird stumpf die Länge mit den Tagen multipliziert und dann die Anzahl der Duschmarken addiert?
Und dabei soll was vernünftiges rauskommen?
Wenn wir uns mal nur die Einheiten ansehen dann stellt man schnell fest, dass da was nicht stimmen kann:

Code:

( Meter * Tag ) + Stück = TagMeter + Stück

Also brauchen wir wohl etwas mehr

Code:

Meter * Euro/( Meter * Tag ) * Tag + Stück * Euro/Stück

Kürzt man jetzt alles weg, dann bleibt nur noch Euro über, also ein Preis.
Somit fehlt in der Berechnung der Wert für die Miete (Preis pro Meter und Tag) und die Kosten für die Duschmarken.
Ausgabe := L * T * BootPreisProMeterTag + D * DuschmarkePreisProStueck; Und die Abfragen würde ich auch so handeln

Delphi-Quellcode:

a := 6;
if L > 7 then
  a := 7;
if L > 8 then
  a := 8;
if L > 9 then
  a := 9;

[KnutschKugel]

Vielen Dank
Es funktioniert *hüpf*

Und wie kann ich jetzt diese Summen hinterrücks speichern?
Ich dachte vielleicht daran das mit nem neuen Formular zu machen, sodass das dann angezeigt wird, nachdem die Passwortabfrage getätigt wurde. Neues Formular anzeigen mach ich doch mit Form.visible:=true, oder?
Aber von der Passwortabfrage.. *schulterzuck*

[Sir Rufo]

Die Frage bitte in einem neuen Thread stellen