Telefonbuch mit listbox

[DeddyH]

Zitat von simon19881:

WIE????

Z.B. so:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  PAdresse = ^TAdresse;
  TAdresse = record
    Name,
    Vorname,
    Telefon,
    Anschrift: String;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    lblName: TLabel;
    edtName: TEdit;
    lblTelefon: TLabel;
    edtTelefon: TEdit;
    lblVorname: TLabel;
    edtVorname: TEdit;
    lblAdresse: TLabel;
    edtAnschrift: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    AdressListe: TList;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function MySort(Item1,Item2: Pointer): integer;
begin
  Result := AnsiStrIComp(PChar(PAdresse(Item1)^.Name),PChar(PAdresse(Item2)^.Name));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AdressListe := TList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  AdressListe.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Adresse: PAdresse;
    i: integer;
begin
  ListBox1.Items.BeginUpdate;
  try
    Adresse := new(PAdresse);
    with Adresse^ do
      begin
        Name := edtName.Text;
        Vorname := edtVorname.Text;
        Telefon := edtTelefon.Text;
        Anschrift := edtAnschrift.Text;
      end;
    AdressListe.Add(Adresse);
    AdressListe.Sort(@MySort);
    ListBox1.Items.Clear;
    for i := 0 to AdressListe.Count - 1 do
      begin
        ListBox1.Items.Add(Format('Name: %s',[PAdresse(AdressListe[i])^.Name]));
        ListBox1.Items.Add(Format('Vorname: %s',[PAdresse(AdressListe[i])^.Vorname]));
        ListBox1.Items.Add(Format('Telefon: %s',[PAdresse(AdressListe[i])^.Telefon]));
        ListBox1.Items.Add(Format('Anschrift: %s',[PAdresse(AdressListe[i])^.Anschrift]));
        ListBox1.Items.Add('');
        ListBox1.Items.Add('--------------------');
      end;
  finally
    ListBox1.Items.EndUpdate;
  end;
end;

end.

[simon19881]

THX bin zutiefst beeindrucked von der community hier und von euren können

Ziehe meinen Hut THX

[simon19881]

hat einen kleinen fehler den ich auch die ganze zeit über hatte

Zitat:

s:=(edit4.Text,4,'/');

da zeigt er error an und macht nicht weiter
das problem daran ist .;,() ect funtz nich
so hatte ich das schonmal ...

[DeddyH]

OK, kleine Ergänzung:

Delphi-Quellcode:

with Adresse^ do
      begin
        Name := edtName.Text;
        Vorname := edtVorname.Text;
        Telefon := edtTelefon.Text;
        Insert(Telefon,'/',4);
        Anschrift := edtAnschrift.Text;
      end;

Sry, falsch herum, es muss heißen Insert('/',Telefon,4);

[simon19881]

hallo deddyH ich hab das jetzt mal komplett so gemacht wie du es gesagt hast
aber er macht wenn ich button 1 clicke nixxxxxxx
why ??

[taaktaak]

Moin, Moin Simon.
Hast du dem Button auch das Click-Event zugewiesen?????????
Gruß Ralph

[DeddyH]

Das reicht aber nicht ganz, er muss alle Methoden zuweisen, sonst knallt es gar furchtbar (Liste noch nicht instanziiert).

[oki]

Hi,

an DeddyH's Code ist eigentlich alles ok. Zur Not mach am Schluß noch mal ein Invalidate auf die Listbox (nach EndUpdate). Sollte aber eigentlich nicht nötig sein.

Ich bevorzuge an dieser Stelle aber auch eher ListView's.

Gruß oki

[DeddyH]

Zitat von oki:

Ich bevorzuge an dieser Stelle aber auch eher ListView's.

Ich auch, aber das war mal eine schöne Gelegenheit, eine "nicht-visuelle Sortierung" zu demonstrieren

[simon19881]

Vielen Dank Euch Beiden......
THX Funtz jetzt endlich....
Bin nämlich dabei ein paar tools für meine Mum auf arbeit zu erstellen.....
THx
melde mich später nochmal