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 :

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.