hey ich bin ein blutiger Anfänger und hoffe ihr könnt mir helfen. Ich soll eine Art Miniatur-Datenbank programmieren.
Hier mal alles auf einem Blick
Delphi-Quellcode:
type tperson=
record
Vorname: string;
Name : string;
Alter : integer;
end;
var person: array [1..100]of tperson;
procedure TForm1.Button1Click(Sender:TObject);
var i:integer;
begin
for i:= 1 to 100 do
begin
if person[i].Vorname= '' then
begin
person[i].Vorname:= edit1.text;
person[i].Name:= edit2.Text;
person[i].Alter:= strtoint(edit3.Text);
exit
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.text:='';
edit2.text:='';
edit3.text:='';
end;
procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
for i:= 1 to 100 do
begin
if edit4.Text = person[i].Name then
exit;
edit2.Text:= person[i].Name;
edit1.Text:= person[i].Vorname;
edit3.Text:= inttostr(person[i].Alter);
edit4.Text:= '';
end;
end;
end.
Mein Problem ist, das wenn ich in der letzten Procedure einen Namen eingebe, damit das Programm die dazu gehörige Person findet, zeigt er mir entweder die letzte auf einen Array gespeicherte Person an oder nur Nullen. Wr echt nett wenn ihr mir helfen könntet
