![]() |
problem mit else nach end
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo, ich hab ne kleines problemchen.
Ich habe ein kleines Programm programmirt das bei eingabe des Namens einses Spielers von BF2142 ein BBCode ausgibt der dessen statistick auf einem bestimmten server anzeigt. jetzt hatte ich die idee noch ne hübsche funktion einzubauen die den gantzen text noch als HTML ausgibt. irgendwie bin ich mit diesen radioboxen aber nich klar gekommen und wolt die dan wieder entfernen. so dan hab ich dies und jehnes probirt und rumgetahn. und irgendwie hab ich es kaputt probirt. :wall: :cyclops: wehre schade wen das alles für die :cat: gewehsen wehre. es mus blos ne kleiner fehler sein es hat ja schon gefunkt.
Delphi-Quellcode:
jetzt beckom ich immer diese fehlermeldung wen ich es starte
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; 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); //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; CloseFile(F); //Schliest Datei MessageDlg('Datei "' + d_name + '.txt" wurde erstellt', mtInformation, [mbOk], 0); close; //Schliest Programm end; end.
Delphi-Quellcode:
Wehre nett wenn ihr mir helfen könntet. ich binn verzweifelt :gruebel:
[Fehler] Unit1.pas(164): Deklaration erwartet, aber Bezeichner 'CloseFile' gefunden
[Fehler] Unit1.pas(168): '.' erwartet, aber ';' gefunden [Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden |
Re: Programm kaputt Programmirt
Du solltest dir angewöhnen, deinen Code zu formatieren. Dann würdest du nämlich sehen, das du ein end; zuviel hast.
|
Re: Programm kaputt Programmirt
Zitat:
Ich Honk :cyclops: hatte die gantze zeit gedacht ich hatte ein end zu wenig *Freu* *Freu* :mrgreen: *grübel* *sicherheitskopie anleg*
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]') 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;
Delphi-Quellcode:
[Fehler] Unit1.pas(169): Deklaration erwartet, aber 'ELSE' gefunden
kleine frage wie löse ich dieses problem? :stupid: |
Re: Programm kaputt Programmirt
Vor else kein ;
|
Re: Programm kaputt Programmirt
Indem du dir für die Zukunft merkst, dass ein if- oder else-Block nur mit einem end abgeschlossen wird, wenn er mit einem begin begonnen wurde. :cyclops:
|
Re: Programm kaputt Programmirt
Zitat:
Dann kommt die meldung
Delphi-Quellcode:
[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. |
Re: problem mit else nach end
Jetzt fehlr das ; natürlich in der Zeile davor
|
Re: Programm kaputt Programmirt
Zitat:
Über dem post steht ja nochmal der gantze text |
Re: problem mit else nach end
Zitat:
?????????????????????????????????????????????????? ???? ähhm.... ich bin zu löd dazu. kanste mir schreiben wo in dem text das ; sein sollte? |
Re: problem mit else nach end
Delphi-Quellcode:
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]') ;
|
Re: problem mit else nach end
Dann an dieser Stelle halt gleich nochmal... 8) Rueck deinen Text richtig ein und du siehst es!
|
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
|
Re: problem mit else nach end
Zitat:
nun das mitdem einrücken hab ich schon versucht is es so net richtig? |
Re: problem mit else nach end
Jetzt scheint das end; in Zeile 170 überflüssig zu sein-> Beachte am Besten den Rat von Tobias
|
Re: problem mit else nach end
Zitat:
|
Re: problem mit else nach end
Zitat:
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. |
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]
|
Re: problem mit else nach end
Zitat:
|
Re: problem mit else nach end
Rücke den Code mal richtig ein oder Zähle einfach mal die begin/ends
|
Re: problem mit else nach end
Zitat:
Ich hab doch bei dem obersten alles eingerückt 6 begins 9 ends (else net mitgezählt) |
Re: problem mit else nach end
Zitat:
|
Re: problem mit else nach end
Die scheinen aber nicht zu passen:
Delphi-Quellcode:
1 begin 2 ends
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 |
Re: problem mit else nach end
Zitat:
@mkinzler wie schon gesagt wen ich es wegnehme dan:
Delphi-Quellcode:
:drunken: :cyclops:
[Fehler] Unit1.pas(168): 'END' erwartet, aber 'ELSE' gefunden
|
Re: problem mit else nach end
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. |
Re: problem mit else nach end
Zitat:
du meinst doch das ich das end ohne ; wegnehme dan komt diese fehlermeldung |
Re: problem mit else nach end
Mit einer besseren Codeformatierung siehst du sofort den Fehler, wie es ja auch bereits mehrmals gesagt wurde. Wenn du den Code nicht schaffst selbst zu formatieren hab ich den mal schnell durch
![]()
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; 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) <> '') then //Prüft ob edit2 leer ist //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 // Das end beendet die Prozedur! else begin if form1.CheckBox1.Checked then //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; begin if form1.CheckBox2.Checked then //Player Banner 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 if form1.checkBox3.Checked then if (Trim(form1.Edit2.Text) <> '') then //Player on Server Banner 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 noch ein end zu viel CloseFile(F); //Schliest Datei MessageDlg('Datei "' + d_name + '.txt" wurde erstellt', mtInformation, [mbOk], 0); close; //Schliest Programm end; end. |
Re: problem mit else nach end
Geh doch mal die Zeilen noch einmal durch, dann siehst du das du einen Block beendest, der nicht geöffnet wurde.
|
Re: problem mit else nach end
Zitat:
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 |
Re: problem mit else nach end
Sieht schon besser aus.
|
Re: problem mit else nach end
Zitat:
etz hab ichs weggemacht
Delphi-Quellcode:
und es kommmt die meldung:
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 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; CloseFile(F); //Schliest Datei MessageDlg('Datei "' + d_name + '.txt" wurde erstellt', mtInformation, [mbOk], 0); close; //Schliest Programm end; end.
Delphi-Quellcode:
[Fehler] Unit1.pas(168): 'END' erwartet, aber 'ELSE' gefunden
|
Re: problem mit else nach end
Zitat:
|
Re: problem mit else nach end
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 ;-). |
Re: problem mit else nach end
Jetzt fehlt wieder der ; in der Zeile davor
|
Re: problem mit else nach end
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; |
Re: problem mit else nach end
Zitat:
hat ich so gelernt. glaub ich? :gruebel: 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; |
Re: problem mit else nach end
Du hast 2 ifs (ohne begin) und dann 2 ends. Das else kann also zu keinem der Ifs gehören
|
Re: problem mit else nach end
Zitat:
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. |
Re: problem mit else nach end
Grundalgen: Zu jedem begin gehörte ein end und zu jedem end ein begin
|
Re: problem mit else nach end
Deltachaos ist wohl der richtige Name. :thumb:
|
Re: problem mit else nach end
Es wäre sinnvoll, wenn du ein Einsteigerbuch oder wenigstens ein
![]() Sonst wirst du dich schwer tun, denn die Grundlagen sind wichtig. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:51 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz