Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Telfonbuch Probleme (https://www.delphipraxis.net/88362-telfonbuch-probleme.html)

LitleFighter 14. Mär 2007 16:56


Telfonbuch Probleme
 
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

bttb930 14. Mär 2007 17:26

Re: Telfonbuch Probleme
 
naja... da ist son bißchen ein wurm drin.

versuch's statt mit if lieber mal mit einer for-schleife.

aber wir wollen hier ja nicht deine hausaufgaben machen.

nur soviel: was ist denn i am anfang? in der regel einfach undefiniert. ob das dann größer oder kleiner als 30 ist ist zufall.

Kedariodakon 14. Mär 2007 17:38

Re: Telfonbuch Probleme
 
Ein Riesenwurm :stupid:

Versuch doch das alles in eine Entsprechende Klasse zu verpacken, dieser Klasse verpasst du noch eine entsprechende Liste, welche du dann je nach Lust und Laune noch mit Sortierfunktionen versehen kannst...

Und schlussendlich baust du dir eine kleine Schnittstelle zwischen deiner Liste und deinem Stringgrid...

Schau mal da rein, da kannst du nützliche Sachen zum thema Listen finden: Klick mich so FEST du kannst! :wink:


Bye Christian

Gehstock 14. Mär 2007 18:49

Re: Telfonbuch Probleme
 
Liste der Anhänge anzeigen (Anzahl: 2)
versuch das Tutorial


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:33 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz