Typen nicht miteinander vereinbar

[Chemiker]

Hallo fransa,

auf dem Formular 11 TEdit, 1 TLabel und 2 TButton platzieren.

Sie entsprechend Beschriften (Edit.Name usw.).

Delphi-Quellcode:

Unit DPBeispielUnit;

interface

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

type
  TForm1 = class(TForm)
    Tag4Edit: TEdit;
    Tag2Edit: TEdit;
    Tag3Edit: TEdit;
    Tag1Edit: TEdit;
    Tag5Edit: TEdit;
    Tag7Edit: TEdit;
    Tag6Edit: TEdit;
    Tag8Edit: TEdit;
    Tag9Edit: TEdit;
    Tag10Edit: TEdit;
    Durchschnitt: TLabel;
    MittelWertBerechenButton: TButton;
    NeuerTagButton: TButton;
    NeuerTagEdit: TEdit;
    procedure MittelWertBerechenButtonClick(Sender: TObject);
    procedure NeuerTagButtonClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MittelWertBerechenButtonClick(Sender: TObject);
var a,b,c,d,e,f,g,h,i,j: double;
begin
  a:= strToFloat(Tag1Edit.Text);
  b:= strToFloat(Tag2Edit.Text);
  c:= strToFloat(Tag3Edit.Text);
  d:= strToFloat(Tag4Edit.Text);
  e:= strToFloat(Tag5Edit.Text);
  f:= strToFloat(Tag6Edit.Text);
  g:= strToFloat(Tag7Edit.Text);
  h:= strToFloat(Tag8Edit.Text);
  i:= strToFloat(Tag9Edit.Text);
  j:= strToFloat(Tag10Edit.Text);
  Durchschnitt.Caption:= FloatToStr(a+b+c+d+e+f+g+h+i+j/10);
end;

procedure TForm1.NeuerTagButtonClick(Sender: TObject);
begin

  Tag10Edit.Text:= Tag9Edit.Text; // Der Wert vom 10 Tag fällt weg.
  Tag9Edit.Text:= Tag8Edit.Text;
  Tag8Edit.Text:= Tag7Edit.Text;
  Tag7Edit.Text:= Tag6Edit.Text;
  Tag6Edit.Text:= Tag5Edit.Text;
  Tag5Edit.Text:= Tag4Edit.Text;
  Tag4Edit.Text:= Tag3Edit.Text;
  Tag3Edit.Text:= Tag2Edit.Text;
  Tag2Edit.Text:= Tag1Edit.Text;
  Tag1Edit.Text:= NeuerTagEdit.Text; // Neuer Wert eintragen.
end;

end.

Bis bald Chemiker