problem mit else nach end

[Deltachaos]

Zitat von Deltachaos:

Zitat von mkinzler:

Du scheinst unsere Antworten nichr richtig Lesen oder zu verstehen oder dir fehlen die Grundlagen.
Ein Block besteht aus einem begin und einem end
Aber nicht bei dir.

oder meinst du das so? aber dann ist es ja auch nur ein begin ohne end

Delphi-Quellcode:

begin
  if
   checkBox3.Checked
  then
   If
    ( Trim(Edit2.Text) <> '' ) //Prüft ob edit2 leer ist
   Then
//Player on Server Banner
     //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]')
else

so komplimentirt er es auf jeden fall

[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 .

[mkinzler]

Jetzt fehlt wieder der ; in der Zeile davor

[dominikkv]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Name:= edit1.Text;
  Clan_Tag:= edit2.Text;
  ip:= edit3.text;
  port:= edit4.text;
  D_Name:= InputBox('Dateiname', 'Bitte Dateinamen eingeben!', 'Link');
  AssignFile(F, d_name + '.txt'); 
  check_n;
  check_c;
  Rewrite(F);



  if RadioButton2.Checked then
    begin
      if CheckBox1.Checked then
        Writeln(F, '[center][url=http://www.gametracker.com/server_info/'+
                   '89.202.196.35:16570/][img]http://cache.www.gametracker.com'+
                   '/server_info/89.202.196.35:16570/b_350x20_C692108-381007-'+
                   'FFFFFF-000000.png[/img][/url][/center]');
    end;



  begin       {warum mit begin..end?}
    if CheckBox2.Checked then
      Writeln(F, '[center][url=http://www.2142-stats.de/'+ name +
                 '+stats.html][img]http://sigs.2142-stats.com/' + name +
                 '_player_31422.png[/img][/url][/center]');
  end;



  begin       {warum mit begin..end?}
    if  checkBox3.Checked then
      If ( Trim(Edit2.Text) <> '' ) Then
        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
        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         {wtf?}
  else




  begin       {warum mit begin..end?}
    if form1.CheckBox1.Checked then
      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;




  begin       {warum mit begin..end?}
    if form1.CheckBox2.Checked then
      Writeln(F, '<p align="center"><a href="http://www.2142-stats.de/' + name +
                 '+stats.html"><img border="0" src="http://sigs.2142-stats.com/' + name +
                 '_player_31422.png"></a></p>');
  end;



  begin       {warum mit begin..end?}
    if form1.checkBox3.Checked then
      If ( Trim(form1.Edit2.Text) <> '' ) Then
        Writeln(F, '<p align="center"><a href="http://www.gametracker.com/server/' + IP +
                   ':' + port + '/player/' + clan_tag + '%20' + name +
                   '/"><img border="0" src="http://cache.www.gametracker.com/player/'+ clan_Tag +
                   '%20' + name + '/' + IP + ':' + port + '/b_560x95.png"></a></p>')
        else
        Writeln(F, '<p align="center"><a href="http://www.gametracker.com/server/' + IP +
                   ':' + port + '/player/' + name +
                   '/"><img border="0" src="http://cache.www.gametracker.com/player/' + name +
                   '/' + IP + ':' + port +'/b_560x95.png"></a></p>')
  end;





  end;        {und was macht hier?}




  CloseFile(F);
  MessageDlg('Datei "' + d_name + '.txt" wurde erstellt', mtInformation,
  [mbOk], 0); 
  close;
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;

[mkinzler]

Du hast 2 ifs (ohne begin) und dann 2 ends. Das else kann also zu keinem der Ifs gehören

[Deltachaos]

Zitat von mkinzler:

Du hast 2 ifs (ohne begin) und dann 2 ends. Das else kann also zu keinem der Ifs gehören

soll es ja nicht
ich dachte so:

Delphi-Quellcode:

  
if RadioButton2.Checked then
  //schreibe gantzen links in die datei (BBCode)
else
 //schreibe gantuen links in Datei (HTML)
  CloseFile(F); //Schliest Datei
  MessageDlg('Datei "' + d_name + '.txt" wurde erstellt', mtInformation, [mbOk], 0);
  close; //Schliest Programm
end;

end.

[mkinzler]

Grundalgen: Zu jedem begin gehörte ein end und zu jedem end ein begin

[Nuclear-Ping]

Deltachaos ist wohl der richtige Name.

[Matze]

Es wäre sinnvoll, wenn du ein Einsteigerbuch oder wenigstens ein Tutorial durchrabeiten würdest. D.h. die Codebeispiele nachvollziehen, verstehen und ohne Vorlage nachprogrammieren.

Sonst wirst du dich schwer tun, denn die Grundlagen sind wichtig.