problem mit else nach end

[Deltachaos]

Zitat von jaenicke:

In Zeile 170 ist das end zum begin in Zeile 155, das else danach gehört also nicht zu einem if...
Und meinen korrekt eingerückten Post kannst du dir ruhig mal ansehen .

@dominikkv
hat ich so gelernt. glaub ich?
Das letze end soll das erste begin beenden

ok soweit so gut.
aber ich werd aus den zeilenzahlen in dem post net schlau.

Delphi-Quellcode:

begin
    if checkBox3.Checked then
      if (Trim(Edit2.Text) <> '') then //Prüft ob edit2 leer ist
        //Player on Server Banner //Zeile 155
        //Wen nicht leer
        Writeln(F, '[center][url=http://www.gametracker.com/server/'
          + IP + ':' + port + '/player/' + clan_tag + '%20' + name
          + '/][img]http://cache.www.gametracker.com/player/' + clan_Tag + '%20'
          + name + '/' + IP + ':' + port + '/b_560x95.png[/img][/url][/center]')
      else
        //wen leer
        Writeln(F, '[center][url=http://www.gametracker.com/server/'
          + IP + ':' + port + '/player/' + name + '/][img]http://cache.www.gametracker.com/player/'
          + name + '/' + IP + ':' + port + '/b_560x95.png[/img][/url][/center]');
  end;
end // Das end beendet die Prozedur!
else
begin
  if form1.CheckBox1.Checked then  //Zeile 170
    //Server Banner
    Writeln(F, '<p align="center"><a href="http://www.gametracker.com/server_info/'
      + IP + ':' + port + '/"><img border="0" src="http://cache.www.gametracker.com/server_info/'
      + IP + ':' + port + '/b_350x20_C692108-381007-FFFFFF-000000.png"></a></p>');
end;