Tjekke om variabel er tom

nååå, så skal du nok bruge noget med

if Navn.Text = '' then
  ShowMessage('Du skal indtaste et navn')
else
begin
  Table.Insert;
  Table['Navn'] := Navn.Text;
  Table['Alder'] := Alder.Text;
  Table['Vaegt'] := Vaegt.Text;
  Table['Hoejde'] := Hoejde.Text;
  Table['Hvilepuls'] := Hvilepuls.Text;
  Table.post
  close
end;

Okey. Tak for det. Nu kommer mit næste problem.

if (Navn = nil) then ShowMessage('Du skal indtaste et navn')
else(
Table.Insert;
Table['Navn'] := Navn.Text;
Table['Alder'] := Alder.Text;
Table['Vaegt'] := Vaegt.Text;
Table['Hoejde'] := Hoejde.Text;
Table['Hvilepuls'] := Hvilepuls.Text;
Table.post
close
);
end;

Hvis variablen Navn er tom skal den vise beskeden... Ellers skal den tilføje koden, men nu får jeg et problem med mineafslutninger ";"

Hvad gør jeg der?

Du skal bruge Begin

if (Navn = nil) then ShowMessage('Du skal indtaste et navn')
else
begin
Table.Insert;
Table['Navn'] := Navn.Text;
Table['Alder'] := Alder.Text;
Table['Vaegt'] := Vaegt.Text;
Table['Hoejde'] := Hoejde.Text;
Table['Hvilepuls'] := Hvilepuls.Text;
Table.post;
close //Ved ikke lige hvad den skal til for
end; //kun hvis du har en begin åbn!

Hilsen CHadi
Mit lykketal er 2959


[Redigeret d. 26/03-04 21:28:03 af CHadi]

Det kommer meget an på hvilken variabel du snakker om! Men jeg tror du mener variant og ikke variabel! Variabel er kun tal! Variant kan være alle typer!

Hvis det er en string:

procedure Tjek(S : string);
begin
if Length(S) = 0 then
...gør et eller andet!
end;

Hvis det er et tal:

procedure Tjek(I : Integer);
begin
if I = 0 then
...gør et eller andet!
end;

Hvis det er en pointer:

procedure Tjek(P : pointer);
begin
if P = nil then
...gør et eller andet!
end;

if var = nil then
...

Okey. Tak for det. Nu kommer mit næste problem.

if (Navn = nil) then ShowMessage('Du skal indtaste et navn')
else(
Table.Insert;
Table['Navn'] := Navn.Text;
Table['Alder'] := Alder.Text;
Table['Vaegt'] := Vaegt.Text;
Table['Hoejde'] := Hoejde.Text;
Table['Hvilepuls'] := Hvilepuls.Text;
Table.post
close
);
end;

Hvis variablen Navn er tom skal den vise beskeden... Ellers skal den tilføje koden, men nu får jeg et problem med mineafslutninger ";"

Hvad gør jeg der?

-Det er den ikke for glad for... Der sker ikke så meget.

Grunden til "close" er at jeg åbner en form for at tilføje en bruger, og lukker denigen når brugeren er tilføjet.

Det er indholdet af et Edit felt, så drt er tekst...

Hvad skal jeg så?

Er rimelig NewBee

[Redigeret d. 26/03-04 21:37:37 af Daniel Lübker]

if Length(Edit1.Text) = 0 then
ShowMessage('Edit feltet er tomt!')
else
... gør et eller andet!

ELLER

if Edit1.Text = '' then
ShowMessage('Edit feltet er tomt!')
else
... gør et eller andet!

Man bruger ikke nil i forbindelse med string!

Takfor hjælpen...