problem mit else nach end

[Deltachaos]

Zitat von mkinzler:

Vor else kein ;

Dass hate ich auch zuerst aber
Dann kommt die meldung

[Fehler] Unit1.pas(169): ';' erwartet, aber 'ELSE' gefunden

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    CheckBox1: TCheckBox;
    Edit3: TEdit;
    Edit4: TEdit;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    ComboBox1: TComboBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var F: TextFile;
var clan_tag, name, d_name, ip, port: string;

procedure check_n;
begin
//Ersätze Sonderzeichen
name := StringReplace(name,'%','%25',[rfReplaceAll]);
name := StringReplace(name,'?','%3F',[rfReplaceAll]);
name := StringReplace(name,'Ä','%C4',[rfReplaceAll]);
name := StringReplace(name,'ä','%E4',[rfReplaceAll]);
name := StringReplace(name,'Ü','%DC',[rfReplaceAll]);
name := StringReplace(name,'ü','%FC',[rfReplaceAll]);
name := StringReplace(name,'Ö','%D6',[rfReplaceAll]);
name := StringReplace(name,'ö','%F6',[rfReplaceAll]);
name := StringReplace(name,'ß','%DF',[rfReplaceAll]);
name := StringReplace(name,' ','%20',[rfReplaceAll]);
name := StringReplace(name,';','%3B',[rfReplaceAll]);
name := StringReplace(name,'=','%3D',[rfReplaceAll]);
name := StringReplace(name,'"','%22',[rfReplaceAll]);
name := StringReplace(name,'(','%28',[rfReplaceAll]);
name := StringReplace(name,')','%29',[rfReplaceAll]);
name := StringReplace(name,'.','%2E',[rfReplaceAll]);
name := StringReplace(name,':','%3A',[rfReplaceAll]);
name := StringReplace(name,'<','%3C',[rfReplaceAll]);
name := StringReplace(name,'>','%3E',[rfReplaceAll]);
name := StringReplace(name,'@','%40',[rfReplaceAll]);
name := StringReplace(name,'[','%5B',[rfReplaceAll]);
name := StringReplace(name,']','%5D',[rfReplaceAll]);
name := StringReplace(name,'\','%5C',[rfReplaceAll]);
name := StringReplace(name,'^','%5E',[rfReplaceAll]);
name := StringReplace(name,'{','%7B',[rfReplaceAll]);
name := StringReplace(name,'}','%7D',[rfReplaceAll]);
name := StringReplace(name,'|','%7C',[rfReplaceAll]);
name := StringReplace(name,'&','%26',[rfReplaceAll]);
name := StringReplace(name,'#','%23',[rfReplaceAll]);
//Sonderzeichen wurden ersetzt
end;

procedure check_c;
begin
//Ersätze Sonderzeichen
clan_tag := StringReplace(clan_tag,'%','%25',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,'?','%3F',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,'Ä','%C4',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,'ä','%E4',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,'Ü','%DC',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,'ü','%FC',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,'Ö','%D6',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,'ö','%F6',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,'ß','%DF',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,' ','%20',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,';','%3B',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,'=','%3D',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,'"','%22',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,'(','%28',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,')','%29',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,'.','%2E',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,':','%3A',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,'<','%3C',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,'>','%3E',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,'@','%40',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,'[','%5B',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,']','%5D',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,'\','%5C',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,'^','%5E',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,'{','%7B',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,'}','%7D',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,'|','%7C',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,'&','%26',[rfReplaceAll]);
clan_tag := StringReplace(clan_tag,'#','%23',[rfReplaceAll]);
//Sonderzeichen wurden ersetzt
end;

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; //ersätzt Sonderzeichen in var clan_tag
    check_c; //ersätzt Sonderzeichen in var name
  Rewrite(F);

//Prüft ob RadioButton2 ausgewehlt ist
if
 RadioButton2.Checked
then
//Speichert ersten Link
begin
  if
   CheckBox1.Checked
  then
//Server Banner
   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;

//speichert zweiten Link
begin
  if
   CheckBox2.Checked
  then
//Player Banner
   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;

//speichert dritten link
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]')
   end;
  end
else

 begin
  if
   form1.CheckBox1.Checked
  then
//Server Banner
     Writeln(F, '<p align="center">[url="http://www.gametracker.com/server_info/' + IP + ':' + port + '/"][img]http://cache.www.gametracker.com/server_info/' + IP + ':' + port + '/b_350x20_C692108-381007-FFFFFF-000000.png[/img][/url]</p>');
end;


begin
  if
   form1.CheckBox2.Checked
  then
//Player Banner
  Writeln(F, '<p align="center">[url="http://www.2142-stats.de/' + name + '+stats.html"][img]http://sigs.2142-stats.com/' + name + '_player_31422.png[/img][/url]</p>');
end;

begin
   if
    form1.checkBox3.Checked
   then
    If ( Trim(form1.Edit2.Text) <> '' )
   Then
//Player on Server Banner
    Writeln(F, '<p align="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]</p>')
   else
    Writeln(F, '<p align="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]</p>')
 end;
end;


  CloseFile(F); //Schliest Datei
  MessageDlg('Datei "' + d_name + '.txt" wurde erstellt', mtInformation,
  [mbOk], 0);
  close; //Schliest Programm
end;

end.