Søg
Avatar billede topsite Nybegynder
07. juni 2002 - 20:19 Der er 20 kommentarer og
2 løsninger

If-else...

Hej, jeg har noget kode, og ville gerne have sådan at jeg har nogle Checkbokse på min form.
og hvis checkboksen er markeret skal den kører noget kode

altså noget ala

if(checkbox1 = markeret)
{
gør koden
}

jeg har aldrig arbejdet med if/else i delphi endnu, så håber i kan hjælpe mig.
Avatar billede cautoo Nybegynder
07. juni 2002 - 20:20 #1
Er ikk helt sikker:

if checkbox1.Selected = True then
begin

end
else
begin

end;
Avatar billede pellelil Nybegynder
07. juni 2002 - 20:47 #2
Prøv med "If CheckBox1.Checked then..."
Avatar billede athlon-pascal Juniormester
07. juni 2002 - 20:50 #3
Det heder Checked, ikke selected.
du behøver ikke "if CheckBox1.Checked = True then", bare "if CheckBox1.Checked then". Det fungerer ganske vist på samme måde.


Altså:

begin
  if CheckBox1.Checked then
  begin
    showmessage('Den er sku OK!');
  end else
  begin
    showmessage('Den er vist ikke helt OK...');
  end;
end;
Avatar billede topsite Nybegynder
07. juni 2002 - 20:51 #4
Her er min kode

Body  := '<HTML>' +
                '<HEAD>' +
                  '<TITLE>Statistik for ' + edit2.text + '</TITLE>' +
                '</HEAD>' + #13#10 +
                '<body bgcolor="' + edit5.text + '" text="' + edit6.text + '" link="blue" vlink="purple" alink="red">' +
                '<BODY>' +
                '<P><FONT face=Verdana size=1><B><U>Pinger ' + edit2.text + '</U><BR><BR>' +
                'IP: &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;' + edit1.text + '<BR>' +
                'Host:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;' + edit3.text + '<BR>' +
                'Uptime: &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;' + uptime + '<br><br>' +
                if checkbox1.checked = True then
                begin
                'Ramforbrug:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;' + memo2.Text + '<br><br>Beskrivelse:<br>--------------------------------------------<br>' +
                end;
                '' + edit4.text + '</B></FONT></P>' +
                '</BODY>' +
              '</HTML>' + #13#10;

Får denne fejl på END linjen
[Error] WebServ1.pas(519): Expression expected but 'END' found
Avatar billede athlon-pascal Juniormester
07. juni 2002 - 20:52 #5
Pellelil -> Dit svar var der ikke da jeg startede på min kommentar, tænkte jo nok at nogen kom før mig :)
Avatar billede pellelil Nybegynder
07. juni 2002 - 20:54 #6
Du kan ikke skrive din IF inde midt i at du "opbygger din streng". Prøv i stedet

Body := 'bla bla bla'
if CHeckBox1.Checked then Body := Body + 'Noget' else Body := Body + 'Noget andet';
Body := Body + 'Og så fortsætter vi ellers";
Avatar billede topsite Nybegynder
07. juni 2002 - 20:54 #7
mm smart ;) er lidt n00b
Avatar billede pellelil Nybegynder
07. juni 2002 - 20:54 #8
althlon> Sådan går det tit med Eksperten ;-)
Avatar billede topsite Nybegynder
07. juni 2002 - 20:54 #9
prøver lige
Avatar billede athlon-pascal Juniormester
07. juni 2002 - 20:55 #10
Pellelil -> Det går nok, bare der kommer gode svar!
Avatar billede topsite Nybegynder
07. juni 2002 - 21:14 #11
kan i ikke lige lave et eks inde i mit kode
Avatar billede athlon-pascal Juniormester
07. juni 2002 - 21:19 #12
Body  := '<HTML>' +
                '<HEAD>' +
                  '<TITLE>Statistik for ' + edit2.text + '</TITLE>' +
                '</HEAD>' + #13#10 +
                '<body bgcolor="' + edit5.text + '" text="' + edit6.text + '" link="blue" vlink="purple" alink="red">' +
                '<BODY>' +
                '<P><FONT face=Verdana size=1><B><U>Pinger ' + edit2.text + '</U><BR><BR>' +
                'IP: &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;' + edit1.text + '<BR>' +
                  'Host:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;' + edit3.text + '<BR>' +
  'Uptime: &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;' + uptime + '<br><br>';
               
  if checkbox1.checked = True then
  begin
    Body:=Body+'Ramforbrug:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;' + memo2.Text + '<br><br>Beskrivelse:<br>--------------------------------------------<br>';
  end;
                Body:=Body+' + edit4.text + '</B></FONT></P>' +
                '</BODY>' +
              '</HTML>' + #13#10;
Avatar billede athlon-pascal Juniormester
07. juni 2002 - 21:19 #13
Det ser lidt rodet ud, men jeg skyndte mig også!
Avatar billede topsite Nybegynder
07. juni 2002 - 21:54 #14
Får fejl på denne linje:
Body:=Body+' + edit4.text + '</B></FONT></P>' +

[Error] WebServ1.pas(521): Expression expected but '/' found
Avatar billede pellelil Nybegynder
07. juni 2002 - 22:13 #15
Prøv: Body := Body + edit4.text + '</B></FONT></P>';
Avatar billede topsite Nybegynder
07. juni 2002 - 22:23 #16
Klarede det sådan her:
Tak alle !! nu har Athlon-pascal ikke lavet et svar, vil gerne give ham nogle points.!!
SÅ ATHLON PASCAL  svar lige tal :-)))

if checkbox1.checked = True then
  begin
    Body:=Body+'Ramforbrug:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;' + memo2.Text + '<br><br>Beskrivelse:<br>--------------------------------------------<br>';
  end;
              Body := Body + edit4.text + '</B></FONT></P>' +
                '</BODY>' +
              '</HTML>' + #13#10;
Avatar billede topsite Nybegynder
07. juni 2002 - 22:27 #17
nu skal i ikke misforstå mig, i andre skal også have del i pointsne.
men syntes bare også athlonboy fortjener en bid..

Tak alle sammen det virker fantastisk nu.
Daniel
Avatar billede athlon-pascal Juniormester
08. juni 2002 - 17:36 #18
OK :)
Avatar billede athlon-pascal Juniormester
11. juni 2002 - 09:31 #19
OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK!
Avatar billede topsite Nybegynder
11. juni 2002 - 09:53 #20
SåDAN;)
Avatar billede athlon-pascal Juniormester
11. juni 2002 - 10:18 #21
Tak :)
Avatar billede athlon-pascal Juniormester
11. juni 2002 - 10:19 #22
Nu har jeg hele 25 point :)
(50 ude)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel Indlæg Oprettet Seneste aktivitet
Bat file. Af johnnylassen i Andet programmering 4 23/04/202616:10 21/08/202611:03
Hjælp til Api.asmx Af lurup i Andet programmering 1 17/03/202609:27 17/03/202614:12
burgermenu til hjemmeside - hjælp! Af SabrinaL i Andet programmering 2 12/11/202514:10 21/08/202611:08
Hjælp til programmering af website Af hamdenlange i Andet programmering 16 17/08/202522:26 19/08/202515:53
Kan man registrere hvis folk lukker en side ned Af KurtG i Andet programmering 8 24/07/202513:06 28/07/202517:03
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
31/0810:26 Synkronisering af kalender mellem computer, android telefon og iPhone Af Strawberry i Andre onlineløsninger
31/0810:24 Kan Excel selv beregne alder? Af leahcim i Excel
30/0815:02 Gemme besked fra Facebook / Messenger Af lurup i Sociale medier
29/0820:17 Kan man kopiere en DVD og afspille den på * Linux Mint - Cinnamon - 22.1 - "Xia" * ? Af Ikke-ekspert i Linux
27/0821:03 Kan man få Word viewer gratis Af Strawberry i Word
White papers
Flere white papers »