Er Radio knap checked?

Hvorfor virker dette ik?

Fejlen: [Error] Unit1.pas(99): Declaration expected but 'IF' found

ved linjen: if alinkfont.Text = '' then

Fordi du mangler nogle begins. Prøv at rette det til:

<pre>
procedure Tlinkstyle.genererClick(Sender: TObject);
begin
if Px.Checked then //du behøver ikke ikke sige Px.Checked = True
begin
alinkpxpt := 'px';
end
else
alinkpxpt := 'pt';
end;

// Color
if alinkcolor.Text = '' then
ShowMessage('Du skal huske at skrive noget i:'#13#10'Farve (a:link)')
else
begin
kodebox.SelText := 'a:link {';
kodebox.SelText := 'color: '+alinkcolor.Text+';'#13#10;
end;
// Color

// Font
if alinkfont.Text = '' then
begin
ShowMessage('Du skal huske at skrive noget i:'#13#10'Skrifttype (a:link)');
kodebox.Lines.Text := '';
end
else
kodebox.SelText := 'font-family: '+alinkfont.Text+';'#13#10;
end;
// Font

</pre>

Husk at hvis du vil have afviklet mere end 1 linjes kode efter en if-sætning så SKAL du bruge begin - end. Det samme gælder i øvrigt for løkker og når man bruger with.[Redigeret d. 08/10-02 15:06:44 af Lasse M]

Hvorfor virker radio1.Checked ikke?

if px.Checked then
alinkpxpt := 'px' else
alinkpxpt := 'pt'

Det her burde virke...

if Px.Checked = True
then
begin
alinkpxpt := 'px';
end
else
alinkpxpt := 'pt';
end;

/t0wer

Hmmm... den kan sq åbenbart ik finde ud af at opstille det pænt...
Men du kan vel se at jeg blot har gjort det en smule mere "idiotsikkert"...

/t0wer

Hvorfor virker radio1.Checked ikke?

if px.Checked then
alinkpxpt := 'px' else
alinkpxpt := 'pt'


Ved ikke om jeg mangler andet, end; fx.

Håber i kan hjælpe

// Mark

Prøv at fortælle hvad du får af fejlmeddelelse.

Du skal i øvrigt have ';' efter sidste linie.

/data

Hmm... Har fået det til at virke.. men..
Har et andet lille problem...

procedure Tlinkstyle.genererClick(Sender: TObject);
begin

if Px.Checked = True then begin
alinkpxpt := 'px'
end
else begin
alinkpxpt := 'pt';
end;

// Color
if alinkcolor.Text = '' then
ShowMessage('Du skal huske at skrive noget i:'#13#10'Farve (a:link)')

else
kodebox.SelText := 'a:link {';
kodebox.SelText := 'color: '+alinkcolor.Text+';'#13#10;
end;
// Color

// Font
if alinkfont.Text = '' then
ShowMessage('Du skal huske at skrive noget i:'#13#10'Skrifttype (a:link)');
kodebox.Lines.Text := ''
else
kodebox.SelText := 'font-family: '+alinkfont.Text+';'#13#10;
end;
// Font

Hvorfor virker dette ik?

Fejlen: [Error] Unit1.pas(99): Declaration expected but 'IF' found

ved linjen: if alinkfont.Text = '' then

Den kommer med fejlen:
[Error] Unit1.pas(89): Declaration expected but 'IF' found

På denne linje:
if alinkcolor.Text = '' then[Redigeret d. 08/10-02 16:01:44 af Mark Jensen]

Den kommer med fejlen:
[Error] Unit1.pas(89): Declaration expected but 'IF' found

På denne linje:
if alinkcolor.Text = '' then[Redigeret d. 08/10-02 16:01:44 af Mark Jensen]

<pre>
procedure Tlinkstyle.genererClick(Sender: TObject);
begin
if Px.Checked then
alinkpxpt := 'px'
else
alinkpxpt := 'pt';

// Color
if alinkcolor.Text = '' then
ShowMessage('Du skal huske at skrive noget i:'#13#10'Farve (a:link)')
else
begin
kodebox.SelText := 'a:link {';
kodebox.SelText := 'color: '+alinkcolor.Text+';'#13#10;
end;
// Color

// Font
if alinkfont.Text = '' then
begin
ShowMessage('Du skal huske at skrive noget i:'#13#10'Skrifttype (a:link)');
kodebox.Lines.Text := '';
end
else
kodebox.SelText := 'font-family: '+alinkfont.Text+';'#13#10;
end;
// Font
</pre>

Prøv med det der...mine copy-paste evner var ikke lige så optimale før

Okay... Jeg har et lille problem (IGEN!) Vil du ikke nok fortælle hvad jeg gør galt?

var
  alinkpxpt, alinkfont, alinkcolor, alinksize: String;

procedure Tlinkstyle.genererClick(Sender: TObject);
begin
  if Px.Checked then
    alinkpxpt := 'px'
  else
    alinkpxpt := 'pt';



  // Color
  if alinkcolor.Text = '' then
    ShowMessage('Du skal huske at skrive noget i:'#13#10'Farve (a:link)')
   else
  begin
    kodebox.SelText := 'a:link {';
    kodebox.SelText := 'color: '+alinkcolor.Text+';'#13#10;
  end;
  // Color

  // Font
  if alinkfont.Text = '' then
  begin
    ShowMessage('Du skal huske at skrive noget i:'#13#10'Skrifttype (a:link)');
    kodebox.Lines.Text := '';
  end
  else
    kodebox.SelText := 'font-family: '+alinkfont.Text+';'#13#10;
end;
  // Font

  // Size
var

if alinksize.Text = '' then
  begin
    ShowMessage('Du skal huske at skrive noget i:'#13#10'Størrelse (a:link)');
    kodebox.Lines.Text := '';
  end
  else
    kodebox.SelText := 'font-size: '+alinksize.Text+';'#13#10;
end;
  // Size

Jeg fatter simpelthen ikke hvad der går galt hvergang jeg laver en if-sætning

Hilsen Mark

Okay... Jeg har et lille problem (IGEN!) Vil du ikke nok fortælle hvad jeg gør galt?

var
  alinkpxpt, alinkfont, alinkcolor, alinksize: String;

procedure Tlinkstyle.genererClick(Sender: TObject);
begin
  if Px.Checked then
    alinkpxpt := 'px'
  else
    alinkpxpt := 'pt';



  // Color
  if alinkcolor.Text = '' then
    ShowMessage('Du skal huske at skrive noget i:'#13#10'Farve (a:link)')
   else
  begin
    kodebox.SelText := 'a:link {';
    kodebox.SelText := 'color: '+alinkcolor.Text+';'#13#10;
  end;
  // Color

  // Font
  if alinkfont.Text = '' then
  begin
    ShowMessage('Du skal huske at skrive noget i:'#13#10'Skrifttype (a:link)');
    kodebox.Lines.Text := '';
  end
  else
    kodebox.SelText := 'font-family: '+alinkfont.Text+';'#13#10;
end;
  // Font

  // Size

if alinksize.Text = '' then
  begin
    ShowMessage('Du skal huske at skrive noget i:'#13#10'Størrelse (a:link)');
    kodebox.Lines.Text := '';
  end
  else
    kodebox.SelText := 'font-size: '+alinksize.Text+';'#13#10;
end;
  // Size

Jeg fatter simpelthen ikke hvad der går galt hvergang jeg laver en if-sætning
Fejlen: [Error] Unit1.pas(106): Identifier expected but 'IF' found
Linje: if alinksize.Text = '' then

Hilsen Mark

[Redigeret d. 08/10-02 20:25:39 af Mark Jensen]

Se kommentaren i koden...

//snip lidt kode
  if alinkfont.Text = '' then
  begin
    ShowMessage('Du skal huske at skrive noget i:'#13#10'Skrifttype (a:link)');
    kodebox.Lines.Text := '';
  end
  else
    kodebox.SelText := 'font-family: '+alinkfont.Text+';'#13#10;
end; // <- der ligger dit problem. Du kan enten slette det eller smide et begin ind lige efter else
  // Font

//snip lidt mere kode