yo, schon beim Start des Programmes.
meld wird als
var meld: string; dekl.
beim start kommt eine inputbox:
meld:=inputbox('Eingabe','Bitte den Namen eingeben!','');
und jetzt kommts:
findkey soll nachgucken ob der eingegebene Name schon
in Datamodule9 bzw. in dessen table2 exisitert.
Code:
procedure TForm1.FormCreate(Sender: TObject);
begin
meld:=inputbox('Eingabe','Bitte den Namen eingeben!','');
if meld=('') then
begin
Showmessage('Kein Name angegeben!');
meld:=inputbox('Eingabe','Bitte den Namen eingeben!','');
end;
with DataModule9 do
begin
Table2.Open;
if Table2.FindKey([meld]) then
showmessage('Name existiert schon!');
end;
.
.
.
usw
so siehts aus...