fejl ved if..then..else

En simpel procedure med en if-then-else kan se sådan ud:

procedure blop;
begin
 if (a=b) then
 begin
  //nada
 end
 else
 begin
  //nope
 end;
end;

Det kunne godt se ud som du har blandet din begin-end i der er rundt om proceduren, sammen med dem der afgrænser i din if-then-else kode. Så du skal vidst have en begin ind efter linien med din if-then sætning.

MvH

Stefan Svensson
http://fusket.frac.dk

hvorfor virker denne her kode ikk ("dedication wanted" eller noget i den stil) ?

[code]
begin
if blablabla then
RenameFile('x','x');
Close;
end;
else <--fejl her
Application.MessageBox(
bla bal bla

Kompileren siger højst sandsynligt at "else" ikke kan komme efter et ";"... Derfor skal du ændre "end;" før "else" til "end"

MH.

The-Freak

Livet er for kort til at kede sig.

Kompileren siger højst sandsynligt at "else" ikke kan komme efter et ";"... Derfor skal du ændre "end;" før "else" til "end"

MH.

The-Freak

Livet er for kort til at kede sig.

Når jeg gør det siger den "';' expected but 'ELSE' found"...

Kompileren siger højst sandsynligt at "else" ikke kan komme efter et ";"... Derfor skal du ændre "end;" før "else" til "end"

MH.

The-Freak

Livet er for kort til at kede sig.

Når jeg gør det siger den "';' expected but 'ELSE' found"...

Strange... Giv lige hele din kode så!

MH.

The-Freak

Livet er for kort til at kede sig.

Kompileren siger højst sandsynligt at "else" ikke kan komme efter et ";"... Derfor skal du ændre "end;" før "else" til "end"

MH.

The-Freak

Livet er for kort til at kede sig.

Når jeg gør det siger den "';' expected but 'ELSE' found"...

Strange... Giv lige hele din kode så!

MH.

The-Freak

Livet er for kort til at kede sig.

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Shellapi;

// osv.

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = 'abc' then
RenameFile('FILE.TXT','FILE.EXE');
ShellExecute(Handle, Nil, 'FILE.EXE', Nil, Nil, SW_SHOW);
RenameFile('FILE.EXE','FILE.TXT');
Close;
end;
else
      Application.MessageBox(
        'Tekst'
        'MsgBox',
        MB_OK + MB_ICONSTOP + MB_DEFBUTTON1 + MB_APPLMODAL);
        Edit1.Text := '';
end;

En simpel procedure med en if-then-else kan se sådan ud:

Kode 

procedure blop;
begin
 if (a=b) then
 begin
  //nada
 end
 else
 begin
  //nope
 end;
end;

Det kunne godt se ud som du har blandet din begin-end i der er rundt om proceduren, sammen med dem der afgrænser i din if-then-else kode. Så du skal vidst have en begin ind efter linien med din if-then sætning.

MvH

Stefan Svensson
http://fusket.frac.dk

Ups, ja det var det jeg var kommet til at gøre =)
Mange år siden jeg sidst har arbejdet med Delphi...

Tak for hjælpen begge to