Hiho,
ich muss für die Schule das altbekannte Telefonbuch mit Delphi machen. Ich hab mich nun auch schon im Forum umgeschaut aber wirklich weitergebracht hat mich das nicht^^. Mein Plan ist es die Namen und Nummern in ein Stringgrid darzustellen. Ich hab es zu Beginn mit einem Array versucht bin nun aber bei einem Record angelangt aber nun funktioniert dummerweise noch weniger und die eizugebenden Daten werden nichtmal mehr in der Tabelle dargestellt.
Ich pack mal meinen Quelltext dazu und hoffe das ihr mir irgendwie möglichst einfach helfen könnt (hab nich wirklich sehr viel ahnung von Delphi gebe aber mein bestes^^).
Delphi-Quellcode:
unit bubble;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 =
class(TForm)
Edit1: TEdit;
Button1: TButton;
Nummerntabelle: TStringGrid;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
i: integer;
j: integer;
implementation
{$R *.dfm}
type
teintrag=Record
name,nummer:
string
end;
telefonbuch =
file;
procedure TForm1.Button1Click(Sender: TObject);
begin
if i<=30
then
begin
i:=strtoint(Edit1.text);
j:=strtoint(Edit2.Text);
Nummerntabelle.Cells[1,i]:=inttostr(i);
Nummerntabelle.Cells[2,j]:=inttostr(j);
Nummerntabelle.Cells[0,i]:=inttostr(i);
i:=i+1;
j:=j+1;
end
else Label3.caption:='
Telefonbuch voll';
end;
end.
Ich hoffe auf baldige Antwort.
MfG der Litle