|
Registriert seit: 20. Feb 2008 Ort: Berlin 195 Beiträge Delphi 7 Personal |
#11
![]() Geh doch mal die Zeilen noch einmal durch, dann siehst du das du einen Block beendest, der nicht geöffnet wurde.
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. [Fehler] Unit1.pas(168): 'END' erwartet, aber 'ELSE' gefunden
Maximilian Ruta
|
![]() |
Ansicht |
![]() |
![]() |
![]() |
ForumregelnEs ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.
BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus. Trackbacks are an
Pingbacks are an
Refbacks are aus
|
|
Nützliche Links |
Heutige Beiträge |
Sitemap |
Suchen |
Code-Library |
Wer ist online |
Alle Foren als gelesen markieren |
Gehe zu... |
LinkBack |
![]() |
![]() |