Problem mit Record

**Back2Code**

Hallo DP'ler,

ich habe mal wieder eine Frage an euch. Ich habe versucht mich mit Records auseinanderzusetzen nur so ganz durchblicken tue ich anscheinend noch nicht, ansonsten würde ich jetzt nicht dieses Thema eröffnen und nach Rat zu fragen

.

Wie das Programm funktionieren sollte :

Man trägt einen Teamnamen ein sowie die Zeit die das Team gebraucht hat. Das Ganze wird dann in eine Listbox eingetragen. An dieser Stelle sollte dann von jedem Eintrag ein Record erstellt werden um dann oben in einem Label das Gewinnerteam mit der kürzesten Zeit auszugeben.

Code :

markieren

Code:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls, ExtCtrls, ComCtrls;

type

  TForm1 = class(TForm)

    GroupBox1: TGroupBox;

    Edit1: TEdit;

    Edit2: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Button1: TButton;

    Panel1: TPanel;

    GroupBox2: TGroupBox;

    Label3: TLabel;

    Label4: TLabel;

    ListBox1: TListBox;

    Timer1: TTimer;

    procedure Button1Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

type

  liste:Record

    zeit:real;

end;

var

  Form1: TForm1;

  teamname: string;

  zeit: real;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

  try

    teamname := Edit1.Text;

    zeit := StrToFloat(Edit2.Text);

    Listbox1.Items.add('Team ' +  teamname + ' Zeit: ' + FloatToStr(zeit));

  except

    ShowMessage('Eingabe ist nicht korrekt! Bitte korrigieren!');

  end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var

  t:integer;

begin

  For t:=0 to Listbox1.Items.count-1 do

   Liste.Zeit:=ListBox1.Items[t];

end;

end.

Problem mit Record

Problem mit Record

Forumregeln