Hvis et felt ikker udfyldt?

Hvis den fx har en caption i forvejen (eksempelvis Edit1), så vil det være:

if Edit1.Caption = 'Edit1' then
  begin
  ShowMessage('Lagekagemand, du er en fusker, udfyld feltet!!');
  end;

Hvor skal det placeres henne? Feltet har ingen caption.

fun22 >> er det i forbindelse med tryk på en knap eller? hvordan vil du bruge det?

hvis den ingen caption har må det jo så blive (og hvis du vil udføre en anden kode hvis det ER udfyldt:

if Edit1.Caption = '' then
  begin
  ShowMessage('Lagekagemand, du er en fusker, udfyld feltet!!');
  end
else
  begin
  (*  ER UDFYLDt *);
  end;

Du kan fx. placere hændelsen ved tryk på en knap.
Så skal knappens OnClick event se således ud:

begin
  if Edit1.Text = '' then
    ShowMessage('Feltet skal udfyldes.');
end;

Ja, hvis det er i forbindelse med en knap kan du dobbelklikke på knappen og indsætte koden jeg skrev.

du skal bare lige huske at en knap ikke har caption men text som attribut

undskyld, det er naturligvis et edit-felt som ikke har caption men text som attribut

ja, du har ret. Bytter altid fundt på dem!! :-)

Den kommer med en fejl meddelelse:
[Error] DllForm.pas(46): Undeclared identifier: 'caption'
[Error] DllForm.pas(50): Missing operator or semicolon
[Error] DllForm.pas(55): Missing operator or semicolon
[Fatal Error] Project1dll.dpr(16): Could not compile used unit 'DllForm.pas'

Prøv at udskifte Caption med Text

:)

Nu har jeg en knap so ser sådan ud:

procedure TfrmDllForm.Image1Click(Sender: TObject);
begin
if navn.Text = '' then
  begin
  ShowMessage('"Spillets navn" er ikke udfyldt');
    end
  AND
  if sti.Text = '' then
  begin
  ShowMessage('"Stil til spil" er ikke udfyldt');
  end
    else
    begin
    db.Insert;
    db.Fields[1].AsString := navn.text;//Navn
    db.Fields[2].AsString := sti.text;//Adresse
    db.Post;
    PlaySound('lyd\add.wav', 0, SND_ASYNC);
      Sleep(1000);
    Close;
  end;

Men den kommer med en fejl hved det sidste "end;":

[Error] DllForm.pas(64): Operator not applicable to this operand type
[Error] DllForm.pas(67): Statement expected but 'PROCEDURE' found
[Fatal Error] Project1dll.dpr(16): Could not compile used unit 'DllForm.pas'

så vidt jeg kan se mangler du et end; som afslutter proceduren

Hvis jeg sætter et end; mere på så siger denn noget andet: [Error]

DllForm.pas(61): Operator not applicable to this operand type

Er det der her du vil?

procedure TfrmDllForm.Image1Click(Sender: TObject);
begin
  if navn.Text = '' then
    ShowMessage('"Spillets navn" er ikke udfyldt')
  else
  if sti.Text = '' then
    ShowMessage('"Stil til spil" er ikke udfyldt')
  else
  begin
    //Do it
  end;
end;