![]() |
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:
Ich hoffe auf baldige Antwort.
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. MfG der Litle |
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. |
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: ![]() Bye Christian |
Re: Telfonbuch Probleme
Liste der Anhänge anzeigen (Anzahl: 2)
versuch das Tutorial
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:14 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz