|
Registriert seit: 20. Feb 2008
Ort: Berlin
195 Beiträge
Delphi 7 Personal
|
Re: problem mit else nach end
20. Feb 2008, 23:32
Zitat von mkinzler:
Grundalgen: Zu jedem begin gehörte ein end und zu jedem end ein begin
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;
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; //ersätzt Sonderzeichen in var clan_tag
check_c; //ersätzt Sonderzeichen in var name
Rewrite(F);
So jetzt kommt das prüfen
Delphi-Quellcode:
//Prüft ob RadioButton2 ausgewehlt ist
if RadioButton2.Checked then
//Speichert ersten Link
Dan das mit den lincks
Delphi-Quellcode:
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;
Ein begin ein end
Delphi-Quellcode:
//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;
Ein begin ein end
Delphi-Quellcode:
//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;
ein begin ein end
Delphi-Quellcode:
end // Das end beendet die Prozedur!
else
oh Gemerkt  *selbst hau*
Delphi-Quellcode:
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;
ein begin ein end
Delphi-Quellcode:
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;
ein begin ein end
Delphi-Quellcode:
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;
ein begin ein end
Delphi-Quellcode:
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.
oh gemerkt
jetzt habe ich alle überflüssigen ends entfernt und er gibt mir immernoch die meldung aus das mir ne end fehlt
das mit dem turial mach ich dan morgen.
also gute nacht. und euch noch Carpe Noctem!
Maximilian Ruta
|