Delphi-PRAXiS
Seite 2 von 7     12 34     Letzte »    
40 Beiträge dieses Themas auf einer Seite anzeigen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi problem mit else nach end (https://www.delphipraxis.net/108891-problem-mit-else-nach-end.html)

Mackhack 20. Feb 2008 21:14
Re: problem mit else nach end
 
Dann an dieser Stelle halt gleich nochmal... 8) Rueck deinen Text richtig ein und du siehst es!

Deltachaos 20. Feb 2008 21:15
Re: problem mit else nach end
 
etz hab ich dat prob

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.
Delphi-Quellcode:
[Fehler] Unit1.pas(169): ';' erwartet, aber 'ELSE' gefunden

Deltachaos 20. Feb 2008 21:16
Re: problem mit else nach end
 
Zitat:
Zitat von Mackhack
Dann an dieser Stelle halt gleich nochmal... 8) Rueck deinen Text richtig ein und du siehst es!
ähhm...
nun das mitdem einrücken hab ich schon versucht is es so net richtig?

mkinzler 20. Feb 2008 21:17
Re: problem mit else nach end
 
Jetzt scheint das end; in Zeile 170 überflüssig zu sein-> Beachte am Besten den Rat von Tobias

Mackhack 20. Feb 2008 21:24
Re: problem mit else nach end
 
Zitat:
Zitat von Deltachaos
Zitat:
Zitat von Mackhack
Dann an dieser Stelle halt gleich nochmal... 8) Rueck deinen Text richtig ein und du siehst es!
ähhm...
nun das mitdem einrücken hab ich schon versucht is es so net richtig?
Wenn ich mir Post #12 von dir so ansehe... Nein net wirklich!

Deltachaos 20. Feb 2008 21:26
Re: problem mit else nach end
 
Zitat:
Zitat von Mackhack
Zitat:
Zitat von Deltachaos
Zitat:
Zitat von Mackhack
Dann an dieser Stelle halt gleich nochmal... 8) Rueck deinen Text richtig ein und du siehst es!
ähhm...
nun das mitdem einrücken hab ich schon versucht is es so net richtig?
Wenn ich mir Post #12 von dir so ansehe... Nein net wirklich!
etz?
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.

alzaimar 20. Feb 2008 21:26
Re: problem mit else nach end
 
[OT] Wenns mit der Rechtschreibung schon so hapert, wie weit ist es dann wohl mit der Code-Syntax her? Rechtschreibung ist auch eine Form der Syntax[/OT]

Deltachaos 20. Feb 2008 21:29
Re: problem mit else nach end
 
Zitat:
Zitat von alzaimar
[OT] Wenns mit der Rechtschreibung schon so hapert, wie weit ist es dann wohl mit der Code-Syntax her? Rechtschreibung ist auch eine Form der Syntax[/OT]
Code find ich einfacher!

mkinzler 20. Feb 2008 21:30
Re: problem mit else nach end
 
Rücke den Code mal richtig ein oder Zähle einfach mal die begin/ends

Deltachaos 20. Feb 2008 21:31
Re: problem mit else nach end
 
Zitat:
Zitat von mkinzler
Rücke den Code mal richtig ein oder Zähle einfach mal die begin/ends
Das hab ich schon 10 mal gesagt beckommen.
Ich hab doch bei dem obersten alles eingerückt

6 begins 9 ends (else net mitgezählt)


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:48 Uhr.
Seite 2 von 7     12 34     Letzte »    
40 Beiträge dieses Themas auf einer Seite anzeigen

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz