Adressbuch mit Stringgrid.

[GroZ]

Hi,
Ich bin gerade dabei ein kleines Adressbuch zu programmieren.
Da ich aber nicht so bewandert bin mit Delphi wollte ich mal fragen mit welchem Code ich ein Stringgrid befüllen kann.
Ich hab 4 Edits(Name, Alter, Wohnort, Tel) und diese sollen hintereinander in das Stringgrid.
Dann halt darunter.

:coder:

[bcvs]

Schau dir mal die Eigenschaft Cells des Stringgrid an.

[GroZ]

Also wenn ich das richtig verstanden habe kann ich in die Werte da meine Variablen einsetzen. Bloß das jedesmal neuschreiben würde ja ewig dauern. Mit schleifen kenn ich mich jedoch nicht gut aus. könnt ihr mir ein beispiel einer schleife senden? oder einen link?

[BUG]

Schön, dass du ein Projekt gefunden hast :thumb:

Zitat:

Zitat von GroZ (Beitrag 1311221)

Bloß das jedesmal neuschreiben würde ja ewig dauern.

Was meinst du damit?

Zitat:

Zitat von GroZ (Beitrag 1311221)

könnt ihr mir ein beispiel einer schleife senden?

Delphi-Quellcode:

while not understood(loops) do
  google.search('delphi schleifen');

[GroZ]

Na das er jedesmal eine zeile weiter runter geht.
Ja aber ich kapiers nich so richtig xD

[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:

Zitat von GroZ (Beitrag 1311230)

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

[BUG]

Das Stringgrid hat eine Eigenschaft, die die Anzahl der Zeilen (RowCount) angibt. Die zählst du um eins hoch und trägst in die neue Zeile die neuen Daten ein. Dafür brauchst du noch nicht mal eine Schleife :wink:

Sauberer wäre es allerdings, wenn du dir eine Funktion schreibst, die eine Liste von Adressen bekommt, das StringGrid komplett löscht und dann mit den Daten aus der Liste wieder neu befüllt. Dass ist zwar für das Hinzufügen nicht wirklich effizient, allerdings näher an dem, wie man es "richtig" machen würde. Dafür brauchst du dann auch tatsächlich eine Schleife.

[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.