probleme mit ordnen von datenbanken

thyrium · Hält's aus hier Beiträge: 2

hi
ich habe mir ein adressbuch erstellt und die liste mit hilfe eines indizes beim nachnamen geordnet

... jedoch habe ich jezz das problem wenn ich mehrere personenen mit dem gleich nachnamen haben bekomme ich immer einen indexfehler ...

kann ich den umgehen oder kann ich die tabelle anstatt

markieren

Quelltext

1:	table1.FindNearest([Edit1.Text]);

mit was anderem ordnen.

tut mir leid aber hatte im forum sehr viel zum locate gefunden , jedoch erwartet er dort so viele eingaben (womit ich mich leider noch nicht so gut auskenne)

bedanke mich schonmal im vorraus , thx!

KeinePanik · Beiträge: 131

Das gleiche Prob hatte ich auch mal :

www.auq.de/viewtopic.php?t=966#4554 ...

Vielleicht hilft es Dir ja weiter ...

_________________
Es gibt keine dummen Fragen ... Nur blöde Antworten !!!

thyrium · Hält's aus hier Beiträge: 2

hi , habe das jezz so geregelt , nur er sucht anstatt die eingabe vom edit feld "edit2.text".

wir kann ich die als variable einsetzen ?

markieren

Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.Button1Click(Sender: TObject);
begin
   table1.Filtered := FALSE;
   table1.Filter := 'Nachname=''Edit2.Text''';
   table1.Filtered := TRUE;
end;

olsen0815 · Hält's aus hier Beiträge: 3

Hallo,

willst du den Filter-Ausdruck mit dem Inhalt eines TEdit-Feldes füttern musst du folgendes eingeben:

table1.Filter := 'Nachname=' + '' + Edit2.Text + '';

(Achtung: Die doppelten Anführungszeichen sind zwei einfache ohne Leerzeichen!)

Klabautermann · Verfasst: Mi 27.11.02 11:09 Titel: Re: Sortieren mit Filter

Hallo,

olsen0815 hat folgendes geschrieben:

table1.Filter := 'Nachname=' + '' + Edit2.Text + '';

(Achtung: Die doppelten Anführungszeichen sind zwei einfache ohne Leerzeichen!)

das müssen aber vier sein, den so fügst du einen Leerstring hinzu. Wobei du das erste vorkommen noch wegobtimieren kannst, indem du es in den Nachnamen Sting aufnimmst.
Das sähe dann so aus:

markieren

Quelltext

1:	table1.Filter := 'Nachname=''' + Edit2.Text + '''';

Gruß
Klabautermann

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme