Adressbuch mit Stringgrid.

[p80286]

Jetzt ist der Moment gekommen, wo Du Dir bei Bleistift und Papier, Gedanken machen solltest, as Dein Programm eigentlich tun soll.
Zumindest Daten Erfassen, Daten Speichern und Daten Suchen sollte wohl dabei sein, Löschen ist vllt. auch recht hilfreich.
Dafür benötigst Du eine Oberfläche und ein paar Routinen fürs speichern suchen und löschen. Hab ich da noch etwas vergessen?

Gruß
K-H

[GroZ]

Das ist immer das erste was ich tue. Hab es jetzt hinbekommen das er den Namen schonmal in die richtige Spalte schreibt. Aber halt ohne Schleife. Die Überschriften hab ich ja auch noch nich

[p80286]

Zitat von GroZ:

Das ist immer das erste was ich tue. Hab es jetzt hinbekommen das er den Namen schonmal in die richtige Spalte schreibt. Aber halt ohne Schleife. Die Überschriften hab ich ja auch noch nich

Dann zeig uns doch mal Deinen Code, und nach Möglichkeit was Du erreichen willst.

Gruß
K-H

[GroZ]

Ok hier.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, StdCtrls, ComCtrls, Menus;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Name: TLabeledEdit;
    Alter: TLabeledEdit;
    Wohnort: TLabeledEdit;
    Notiz: TLabeledEdit;
    HinzuBtn: TButton;
    LoeschenBtn: TButton;
    AdresseGrid: TStringGrid;
    BeendenBtn: TButton;
    MonthCalendar1: TMonthCalendar;
    Panel3: TPanel;
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Speichern1: TMenuItem;
    Speichernunter1: TMenuItem;
    Nochnichtfertig1: TMenuItem;
    procedure BeendenBtnClick(Sender: TObject);
    procedure HinzuBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Name, Wohnort: string;
  Alter, Tel: integer;

implementation

{$R *.dfm}

procedure TForm1.BeendenBtnClick(Sender: TObject);
begin
sleep(1000);
close;
end;

procedure TForm1.HinzuBtnClick(Sender: TObject);
begin
  AdresseGrid.Cells[1,1]:= Name.Text;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AdresseGrid.Cells[0,1]:=
end;

end.

//edit hab jetzt ne schleife hinbekommen.