1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    ListBox1: TListBox;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
  Type Tperson= Record
                   Nachname:string[20];
                   Vorname:string[15];
                   Alter:string;
                 End;


var
  Form1: TForm1;
  person:array[1..20] of Tperson;
  i:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  i:=i+1;
  person[i].Nachname:=Edit1.Text;
  person[i].Vorname:=Edit2.Text;
  person[i].Alter:=Edit3.Text;
  Listbox1.Items.Add(person[i].Nachname+', '+person[i].Vorname+' ('+person[i].Alter+')');
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin

end;

end.					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.ListBox1Click(Sender: TObject);
var
  i: Integer;
begin
  i := ListBox1.ItemIndex;
  Edit1.Text := ListBox1.Items[i];
end;					

1:
2:
3:
4:
5:
6:
7:

i:=ListBox1.ItemIndex+1; //+1, weil die Listbox bei 0 beginnt, das Array aber bei 1.
with person[i] do
begin
  edit1.text:=nachname;
  edit2.text:=vorname;
  edit3.text:=alter;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.AendernClick(Sender: TObject); 
begin 
  i:=ListBox1.ItemIndex+1;
  person[i].Nachname:=Edit1.Text; 
  person[i].Vorname:=Edit2.Text; 
  person[i].Alter:=Edit3.Text; 
  ListBox1.Items[i-1]:=person[i].Nachname+', '+person[i].Vorname+' ('+person[i].Alter+')';
end;					

1:
2:
3:
4:
5:

procedure TForm1.nachobenClick(Sender: TObject);
begin
  if ListBox1.ItemIndex > 0 then //Geht's noch nach oben?
  ListBox1.Itemindex:=ListBox1.ItemIndex-1; //wenn ja, dann gehe eins nach oben
end;