|
![]() |
|
Registriert seit: 10. Jun 2003 Ort: Berlin 9.927 Beiträge Delphi 12 Athens |
#1
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.
Sebastian Jänicke
|
![]() |
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 |
![]() |
![]() |