Lokalisierung - Versionsgeschichte

Openglerf: /* Anforderungen */

2014-01-01T23:23:52Z

‎Anforderungen

DGLBot: Der Ausdruck ''(.*?)'' wurde ersetzt mit ''$1''.

2009-03-10T18:06:19Z

Der Ausdruck ''<pascal>(.*?)</pascal>'' wurde ersetzt mit ''<source lang="pascal">$1</source>''.

Flo: Der Kategorie Technik oder Algorithmus hinzugefuegt.

2008-05-04T17:09:52Z

Der Kategorie Technik oder Algorithmus hinzugefuegt.

Flash: /* Übersetzung von Formularen und Komponenten */ Alte Codeformatierung sprengte Seitendimensionen

2007-10-19T07:26:34Z

‎Übersetzung von Formularen und Komponenten: Alte Codeformatierung sprengte Seitendimensionen

Lord Horazont: Groß-/Kleinschreibung korrigiert bzw. verbessert

2006-08-16T17:24:28Z

Groß-/Kleinschreibung korrigiert bzw. verbessert

I0n0s: /* Lokalisierung */ Rechtschreibung etc

2006-07-26T12:09:36Z

‎Lokalisierung: Rechtschreibung etc

Änderungen zeigen

The-Winner: /* Übersetzung von Formularen und Komponenten */

2006-07-26T11:55:44Z

‎Übersetzung von Formularen und Komponenten

The-Winner am 26. Juli 2006 um 11:53 Uhr

2006-07-26T11:53:53Z

The-Winner am 26. Juli 2006 um 11:49 Uhr

2006-07-26T11:49:55Z

The-Winner am 26. Juli 2006 um 11:47 Uhr

2006-07-26T11:47:34Z

@@ Zeile 7: / Zeile 7: @@
 == Anforderungen ==
 * Einfach einzusetzen
-* Software kann auch nach dem Übersetzen noch verändert werden
+* Übersetzen in weitere Sprachen ohne Neukompilierung
 * Auch bei anderem Satzbau noch verwendbar

@@ Zeile 23: / Zeile 23: @@
 Sie werden mit Hilfe der Funktion '''LoadLanguage''' geladen:
-<pascal>procedure LoadLanguage(const Lang: String);
+<source lang="pascal">procedure LoadLanguage(const Lang: String);
 begin
   CurLang:=LowerCase(Lang);
   LangData.LoadFromFile(ChangeFileExt(ParamStr(0),'.'+CurLang));
-end;</pascal>
+end;</source>
 Diese Funktion macht nicht mehr als die momentane Sprache in einer Variable zu speichern und die Übersetzungsdatei zu laden. Der Dateiname wird bei mir über '''ChangeFileExt(ParamStr(0),'.'+CurLang)''' festgelegt, das solltet ihr jedoch an euer Projekt anpassen.
@@ Zeile 33: / Zeile 33: @@
 Die eigentliche Übersetzung wird von der Funktion '''Translate''' durchgeführt.
 (Ich bevorzuge aussagekräftige Funktionsnamen, besonders im C/C++ Bereich habe ich auch schon einen einfachen Unterstrich als Namen für so eine Funktion gesehen. Das ist auch in Delphi möglich, falls ihr so tippfaul seid)
-<pascal>function Translate(const Name: string): string;overload;
+<source lang="pascal">function Translate(const Name: string): string;overload;
 var i:Integer;
 begin
@@ Zeile 43: / Zeile 43: @@
   Result:=StringReplace(result,'\n',#10,[rfReplaceAll]);
   Result:=StringReplace(result,'\\','\',[rfReplaceAll]);
-end;</pascal>
+end;</source>
 Diese Funktion sucht den über den Parameter ''Name'' übergebenen Bezeichner in der Stringlist (ich verwende auf Performancegründen eine sortierte Stringlist und die Funktion Find) wenn sie ihn findet werden noch die Escapezeichen \r (Wagenrücklauf=#13) und \n (Neue Zeile=#10) sowie der Doppelbackslash ersetzt und das Ergebnis zurückgeliefert.
@@ Zeile 56: / Zeile 56: @@
 Dann kann man das im Programm folgendermaßen verwenden:
-<pascal>procedure TForm1.FormCreate(Sender: TObject);
+<source lang="pascal">procedure TForm1.FormCreate(Sender: TObject);
 begin
   LoadLanguage('de');
@@ Zeile 65: / Zeile 65: @@
 begin
   ShowMessage(Translate('quitmsg'));
-end;</pascal>
+end;</source>
 Es ist jedoch darauf zu achten, dass dass '''Translate''' case-sensitive ist, also '''Translate('StartMsg')''' nicht das selbe wie '''Translate('startmsg')''' ist.
@@ Zeile 72: / Zeile 72: @@
 Daher gibt es noch eine zweite erweiterte Übersetzungsfunktion die auf die erste zurückgreift:
-<pascal>Function Translate(const Name: string; const Args: array of const): String; overload;
+<source lang="pascal">Function Translate(const Name: string; const Args: array of const): String; overload;
 begin
   Result:=Format(Translate(Name),Args);
-end;</pascal>
+end;</source>
 Diese Funktion übernimmt zusammen mit dem Bezeichner noch ein Array an Variablen/Konstanten, die es dann zusammen mit der Übersetzung des Bezeichners an die Delphifunktion '''Format''' übergibt.
@@ Zeile 90: / Zeile 90: @@
 Verwendet werden sie dann so
-<pascal> LoadLanguage('de');
+<source lang="pascal"> LoadLanguage('de');
   showmessage(translate('attackmsg',[SpielerNummer]));
-  showmessahe(translate('chatmsg',[SpielerNummer,Nachricht]));</pascal>
+  showmessahe(translate('chatmsg',[SpielerNummer,Nachricht]));</source>
 Zur Abfrage welche Sprache momentan aktiv ist dient: (Ihr Ergebnis ist klein geschrieben)
-<pascal>function CurrentLanguage:string;</pascal>
+<source lang="pascal">function CurrentLanguage:string;</source>
 Hier noch der gesamte Quelltext der Übersetzungsunit:
 ''Translator.pas''
-<pascal>unit Translator;
+<source lang="pascal">unit Translator;
 interface
@@ Zeile 147: / Zeile 147: @@
 finalization
   LangData.Free;
-end.</pascal>
+end.</source>
 === Übersetzung von Formularen und Komponenten ===
@@ Zeile 154: / Zeile 154: @@
 Sie stellt zwei weitere Funktionen zu Verfügung:
 Zum einen eine weitere Überladung von '''Translate''', die ein ganzes Formular auf einmal übersetzt
-<pascal>Procedure Translate(const Component:TComponent;Path:String='');overload;</pascal>
+<source lang="pascal">Procedure Translate(const Component:TComponent;Path:String='');overload;</source>
 Verwendung:
-<pascal>Translate(Form1)</pascal>
+<source lang="pascal">Translate(Form1)</source>
 und eine weitere Funktion die eine ensprechende Übersetzungsdatei aus einem Formular generiert:
-<pascal>procedure CreateTranslationTable(const Component:TComponent;const Filename:String);</pascal>
+<source lang="pascal">procedure CreateTranslationTable(const Component:TComponent;const Filename:String);</source>
 Verwendung:
-<pascal>CreateTranslationTable(Form1,'Form1table.txt');</pascal>
+<source lang="pascal">CreateTranslationTable(Form1,'Form1table.txt');</source>
 Dabei entsteht eine Datei die etwa wie die folgende aussieht, und dann vom Benutzer übersetzt und in die jeweilige Sprachdatei integriert werden sollte:
   Form1.Caption=Form1
@@ Zeile 189: / Zeile 189: @@
 ''TranslatorVCL.pas''
-<pascal>unit TranslatorVCL;
+<source lang="pascal">unit TranslatorVCL;
 interface
@@ Zeile 301: / Zeile 301: @@
 end;
-end.</pascal>
+end.</source>
 {{Hinweis|Beide units können frei in beliebigen Projekten verwendet und angepasst werden.}}
 [[Kategorie:Technik oder Algorithmus]]

← Nächstältere Version		Version vom 4. Mai 2008, 17:09 Uhr
Zeile 303:		Zeile 303:
	end.</pascal>		end.</pascal>
	{{Hinweis\|Beide units können frei in beliebigen Projekten verwendet und angepasst werden.}}		{{Hinweis\|Beide units können frei in beliebigen Projekten verwendet und angepasst werden.}}
		+
		+	[[Kategorie:Technik oder Algorithmus]]

@@ Zeile 206: / Zeile 206: @@
    else Path:=Path+'.'+Component.Name;
   //Eigenschaften übersetzen
-  if (Component is TControl)and(TMyControl(Component).Caption<>'')then TMyControl(Component).Caption:=Translate(Path+'.Caption');
+  if (Component is TControl)and
-  if (Component is TControl)and(TControl(Component).Hint<>'')then TMyControl(Component).Hint:=Translate(Path+'.Hint');
+    (TMyControl(Component).Caption<>'')then
-  if (Component is TMenuItem)and(TMenuItem(Component).Caption<>'')and(TMenuItem(Component).Action=nil)then TMenuItem(Component).Caption:=Translate(Path+'.Caption');
+    TMyControl(Component).Caption:=Translate(Path+'.Caption');
-  if (Component is TMenuItem)and(TMenuItem(Component).Hint<>'')and(TMenuItem(Component).Action=nil)then TMenuItem(Component).Hint:=Translate(Path+'.Hint');
+  if (Component is TControl)and
-  if (Component is TCustomAction)and(TCustomAction(Component).Caption<>'')then TCustomAction(Component).Caption:=Translate(Path+'.Caption');
+    (TControl(Component).Hint<>'')then
-  if (Component is TCustomAction)and(TCustomAction(Component).Hint<>'')then TCustomAction(Component).Hint:=Translate(Path+'.Hint');
+    TMyControl(Component).Hint:=Translate(Path+'.Hint');
-  if (Component is TTabControl)and(TTabControl(Component).Tabs.text<>'')then TTabControl(Component).Tabs.text:=Translate(Path+'.Tabs');
+  if (Component is TMenuItem)and
-  if (Component is TCustomComboBox)and(TCustomComboBox(Component).items.text<>'')then TCustomComboBox(Component).items.text:=Translate(Path+'.Items');
+    (TMenuItem(Component).Caption<>'')and
-  if (Component is TCustomListBox)and(TCustomListBox(Component).items.text<>'')then TCustomListBox(Component).items.text:=Translate(Path+'.Items');
+    (TMenuItem(Component).Action=nil)then
   //Unterkomponenten übersetzen
   for i:=0 to Component.ComponentCount-1do
@@ Zeile 238: / Zeile 258: @@
       else Path:=Path+'.'+Component.Name;
      //Eigenschaften speichern
-    if (Component is TControl)and(TMyControl(Component).Caption<>'')then List.add(Path+'.Caption='+Escape(TMyControl(Component).Caption));
+        if (Component is TControl)and
-     if (Component is TControl)and(TControl(Component).Hint<>'')then List.add(Path+'.Hint='+Escape(TMyControl(Component).Hint));
+       (TMyControl(Component).Caption<>'')then
-     if (Component is TMenuItem)and(TMenuItem(Component).Caption<>'')and(TMenuItem(Component).Action=nil)then List.add(Path+'.Caption='+Escape(TMenuItem(Component).Caption));
+       List.add(Path+'.Caption='+Escape(TMyControl(Component).Caption));
-     if (Component is TMenuItem)and(TMenuItem(Component).Hint<>'')and(TMenuItem(Component).Action=nil)then List.add(Path+'.Hint='+Escape(TMenuItem(Component).Hint));
+     if (Component is TControl)and
-     if (Component is TCustomAction)and(TCustomAction(Component).Caption<>'')then List.add(Path+'.Caption='+Escape(TCustomAction(Component).Caption));
+       (TControl(Component).Hint<>'')then
-     if (Component is TCustomAction)and(TCustomAction(Component).Hint<>'')then List.add(Path+'.Hint='+Escape(TCustomAction(Component).Hint));
+       List.add(Path+'.Hint='+Escape(TMyControl(Component).Hint));
-     if (Component is TTabControl)and(TTabControl(Component).Tabs.text<>'')then List.add(Path+'.Tabs='+Escape(TTabControl(Component).Tabs.text));
+     if (Component is TMenuItem)and
-     if (Component is TCustomComboBox)and(TCustomComboBox(Component).Items.text<>'')then List.add(Path+'.Items='+Escape(TCustomComboBox(Component).Items.text));
+       (TMenuItem(Component).Caption<>'')and
-     if (Component is TCustomListBox)and(TCustomListBox(Component).Items.text<>'')then List.add(Path+'.Items='+Escape(TCustomListBox(Component).Items.text));
+       (TMenuItem(Component).Action=nil)then
      //Unterkomponenten speichern
      for i:=0 to Component.ComponentCount-1do

@@ Zeile 23: / Zeile 23: @@
 Sie werden mit Hilfe der Funktion '''LoadLanguage''' geladen:
-<pascal>procedure LoadLanguage(const Lang:String);
+<pascal>procedure LoadLanguage(const Lang: String);
 begin
-  CurLang:=lowercase(Lang);
+  CurLang:=LowerCase(Lang);
-  langdata.loadfromfile(changefileext(paramstr(0),'.'+CurLang));
+  LangData.LoadFromFile(ChangeFileExt(ParamStr(0),'.'+CurLang));
 end;</pascal>
-Diese Funktion macht nicht mehr als die momentane Sprache in einer Variable zu speichern und die Übersetzungsdatei zu laden. Der Dateiname wird bei mir über '''changefileext(paramstr(0),'.'+CurLang)''' festgelegt, das solltet ihr jedoch an euer Projekt anpassen.
+Diese Funktion macht nicht mehr als die momentane Sprache in einer Variable zu speichern und die Übersetzungsdatei zu laden. Der Dateiname wird bei mir über '''ChangeFileExt(ParamStr(0),'.'+CurLang)''' festgelegt, das solltet ihr jedoch an euer Projekt anpassen.
 Die eigentliche Übersetzung wird von der Funktion '''Translate''' durchgeführt.
 (Ich bevorzuge aussagekräftige Funktionsnamen, besonders im C/C++ Bereich habe ich auch schon einen einfachen Unterstrich als Namen für so eine Funktion gesehen. Das ist auch in Delphi möglich, falls ihr so tippfaul seid)
-<pascal>Function Translate(const Name: string): string;overload;
+<pascal>function Translate(const Name: string): string;overload;
-var i:integer;
+var i:Integer;
 begin
-  langdata.find(Name+'=',i);
+  i := LangData.IndexOfName(Name);
-  if (i<langdata.count)and(copy(langdata[i],1,length(Name)+1)=Name+'=')
+  if (I>-1)
-   then result:=Copy(langdata[i], Length(Name) + 2, MaxInt)
+   then Result:=LangData.Values[Name];
-   else raise exception.create('String not translated: "'+Name+'"');
+   else raise Exception.Create('String not translated: "'+Name+'"');
-  result:=stringreplace(result,'\r',#13,[rfReplaceAll]);
+  Result:=StringReplace(result,'\r',#13,[rfReplaceAll]);
-  result:=stringreplace(result,'\n',#10,[rfReplaceAll]);
+  Result:=StringReplace(result,'\n',#10,[rfReplaceAll]);
-  result:=stringreplace(result,'\\','\',[rfReplaceAll]);
+  Result:=StringReplace(result,'\\','\',[rfReplaceAll]);
 end;</pascal>
@@ Zeile 58: / Zeile 58: @@
 <pascal>procedure TForm1.FormCreate(Sender: TObject);
 begin
-  Loadlanguage('de');
+  LoadLanguage('de');
-  showmessage(Translate('startmsg'));
+  ShowMessage(Translate('startmsg'));
 end;
 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
-  showmessage(Translate('quitmsg'));
+  ShowMessage(Translate('quitmsg'));
 end;</pascal>
-Es ist jedoch darauf zu achten, dass dass '''Translate''' casesensitiv ist, also '''Translate('StartMsg')''' nicht das selbe wie '''Translate('startmsg')''' ist.
+Es ist jedoch darauf zu achten, dass dass '''Translate''' case-sensitive ist, also '''Translate('StartMsg')''' nicht das selbe wie '''Translate('startmsg')''' ist.
 Diese Funktion hat jedoch den Nachteil nicht für dynamische Texte einsetzbar zu sein.
@@ Zeile 72: / Zeile 72: @@
 Daher gibt es noch eine zweite erweiterte Übersetzungsfunktion die auf die erste zurückgreift:
-<pascal>Function Translate(const Name: string; const Args: array of const): string;overload;
+<pascal>Function Translate(const Name: string; const Args: array of const): String; overload;
 begin
-  result:=format(translate(Name),Args);
+  Result:=Format(Translate(Name),Args);
 end;</pascal>
 Diese Funktion übernimmt zusammen mit dem Bezeichner noch ein Array an Variablen/Konstanten, die es dann zusammen mit der Übersetzung des Bezeichners an die Delphifunktion '''Format''' übergibt.
@@ Zeile 102: / Zeile 102: @@
 interface
-Function Translate(const Name: string; const Args: array of const): string;overload;
+function Translate(const Name: String; const Args: array of const): String; overload;
-Function Translate(const Name: string): string;overload;
+function Translate(const Name: String): String; overload;
-procedure LoadLanguage(const Lang:String);
+procedure LoadLanguage(const Lang: String);
-function CurrentLanguage:String;
+function CurrentLanguage: String;
 implementation
-uses sysutils,classes;
+uses SysUtils,Classes;
-var langdata:TStringlist;
+var LangData:TStringlist;
      CurLang:String;
-Function Translate(const Name: string; const Args: array of const): string;overload;
 begin
-  result:=format(translate(Name),Args);
+  Result:=Format(Translate(Name),Args);
 end;
-Function Translate(const Name: string): string;overload;
+Function Translate(const Name: string): String; overload;
-var i:integer;
+var i:Integer;
 begin
-  langdata.find(Name+'=',i);
+  i := LangData.IndexOfName(Name);
-  if (i<langdata.count)and(copy(langdata[i],1,length(Name)+1)=Name+'=')
+  if (I>-1)
-   then result:=Copy(langdata[i], Length(Name) + 2, MaxInt)
+   then Result:=LangData.Values[Name];
-   else raise exception.create('String not translated: "'+Name+'"');
+   else raise Exception.Create('String not translated: "'+Name+'"');
-  result:=stringreplace(result,'\r',#13,[rfReplaceAll]);
+  Result:=StringReplace(result,'\r',#13,[rfReplaceAll]);
-  result:=stringreplace(result,'\n',#10,[rfReplaceAll]);
+  Result:=StringReplace(result,'\n',#10,[rfReplaceAll]);
-  result:=stringreplace(result,'\\','\',[rfReplaceAll]);
+  Result:=StringReplace(result,'\\','\',[rfReplaceAll]);
 end;
 procedure LoadLanguage(const Lang:String);
 begin
-  CurLang:=lowercase(Lang);
+  CurLang:=LowerCase(Lang);
-  langdata.loadfromfile(changefileext(paramstr(0),'.'+CurLang));
+  LangData.LoadFromFile(ChangeFileExt(ParamStr(0),'.'+CurLang));
 end;
 function CurrentLanguage:String;
 begin
-  result:=CurLang;
+  Result:=CurLang;
 end;
 initialization
-  langdata:=TStringlist.create;
+  LangData:=TStringList.Create;
-  langdata.sorted:=true;
+  LangData.Sorted:=true;
 finalization
-  langdata.free;
+  LangData.Free;
 end.</pascal>
 === Übersetzung von Formularen und Komponenten ===

@@ Zeile 163: / Zeile 163: @@
 Im Gegensatz zu Translator.pas die relativ allgemein einsetzbar ist, ist diese darauf aufbauende unit auf die Delphi VCL spezialisiert.
 Sie stellt 2 weite Funktionen zu Verfügung:
-Zum einen eine weitere Überladung von translate, die ein ganzes Formular auf einmal übersetzt
+Zum einen eine weitere Überladung von translate, die ein ganzes Formular auf einmal übersetzt:
 <pascal>
 Procedure Translate(const Component:TComponent;Path:String='');overload;
 </pascal>
 Verwendung:
 <pascal>
-Translate(Form1)
+Translate(Form1);
 </pascal>
@@ Zeile 199: / Zeile 200: @@
   Form1.a.Hint=>>a<<
   Form1.Action1.Caption=Hallo
-  Form1.Action1.Hint=>>Hallo<<
+  Form1.Action1.Hint=Hallo und Willkommen
 Dabei werden folgende Eigenschaften gespeichtert/gelesen:
@@ Zeile 281: / Zeile 282: @@
 end.
 </pascal>

@@ Zeile 12: / Zeile 12: @@
 == Ansätze ==
 * Formularresourcen (Borland)<br>Nachteil: Es ist schwer das Formular nach dem Übersetzen noch anzupassen und es wird bei sonstigen Texten keine Unterstützung geboten
-* Programm das im Quelltext alle Strings suchen und ersetzen kann<br>Nachteil: Es gibt viele nicht zu übersetzende Strings, Programm muss für jede Spreche kompiliert werden
+* Programm das im Quelltext alle Strings suchen und ersetzen kann<br>Nachteil: Es gibt viele nicht zu übersetzende Strings, Programm muss für jede Sprache kompiliert werden
 * Übersetzungsfunktion:<br>Vorteil: Kann überall im Quelltext eingesetzt werden<br>Nachteil: Jeder zu übersetzende String muss an diese Funktion übergeben werden
@@ Zeile 21: / Zeile 21: @@
   Bezeichner=Wert
 sie sind also ähnlich wie Ini-Dateien aufgebaut, jedoch ohne Sektionen
 Sie werden mit Hilfe der Funktion LoadLanguage geladen
 <pascal>
@@ Zeile 32: / Zeile 33: @@
 Die eigentliche Übersetzung wird von der Funktion Translate durchgeführt.
-(Ich bevorzuge aussagekräftige Funktionsnamen, besonders im C++ Bereich habe ich auch schon einen einfachen Unterstrich als Namen für so eine Funktion gesehen. Das ist auch in Delphi möglich, falls ihr so tippfaul seid)
+(Ich bevorzuge aussagekräftige Funktionsnamen, besonders im C/C++ Bereich habe ich auch schon einen einfachen Unterstrich als Namen für so eine Funktion gesehen. Das ist auch in Delphi möglich, falls ihr so tippfaul seid)
 <pascal>
 Function Translate(const Name: string): string;overload;
@@ Zeile 47: / Zeile 48: @@
 </pascal>
-Diese Funktion Sucht den über den Parameter "Name" übergebenen Bezeichner in der Stringlist (ich verwende auf Performancegründen eine sortierte Stringlist und die Funktion Find) wenn sie ihn findet werden noch die Escapezeichen \r (Wagenrücklauf=#13) und \n (Neue Zeile=#10) sowie der Doppelbackslash durch einen einfachen ersetzt und das Ergebnis zurückgeliefert.
+Diese Funktion Sucht den über den Parameter "Name" übergebenen Bezeichner in der Stringlist, (ich verwende auf Performancegründen eine sortierte Stringlist und die Funktion Find) wenn sie ihn findet werden noch die Escapezeichen \r (Wagenrücklauf=#13) und \n (Neue Zeile=#10) sowie der Doppelbackslash ersetzt und das Ergebnis zurückgeliefert.
 Wenn der Bezeichner nicht gefunden wird, wird eine Exception generiert. Dieses Verhalten ist zum Debuggen nützlich, sollte im Endprodukt jedoch möglichst geändert werden, wenn man den Benutzer nicht mit Exceptions verärgern will.
@@ Zeile 62: / Zeile 63: @@
 begin
   Loadlanguage('de');
-  Translate('startmsg');
+  showmessage(Translate('startmsg'));
 end;
@@ Zeile 70: / Zeile 71: @@
 end;
 </pascal>
-Es ist jedoch darauf zu achten, dass dass Translate casesensitiv ist, also translate('StartMsg') nicht das selbe wie translate('startmsg') ist.
+Es ist jedoch darauf zu achten, dass dass translate casesensitiv ist, also translate('StartMsg') nicht das selbe wie translate('startmsg') ist.
 Diese Funktion hat jedoch den Nachteil nicht für dynamische Texte einsetzbar zu sein.
@@ Zeile 82: / Zeile 83: @@
 end;
 </pascal>
-Diese Funktion übernimmt zusammen mit dem Beeichner noch ein Array an Variablen/Konstanten, die es dann zusammen mit der Übersetzung des Bezeichners an die Delphifunktion format übergibt.
+Diese Funktion übernimmt zusammen mit dem Bezeichner noch ein Array an Variablen/Konstanten, die es dann zusammen mit der Übersetzung des Bezeichners an die Delphifunktion format übergibt.
 Format ersetzt bestimmte Zeichenkombinationen im text durch die Variablen des Arrays:
@@ Zeile 92: / Zeile 93: @@
 Auch hierzu ein Beispiel:
 Projektname.de
-  attackmsg=Spieler %d greift sie an
+  attackmsg=Spieler %d greift Sie an
   chatmsg=<Spieler %d> %s
-Verwendet werden sie dann so
+Verwendet werden sie dann so:
 <pascal>
   LoadLanguage('de');
@@ Zeile 102: / Zeile 103: @@
 </pascal>
-Zur Abfrage welche Sprache momentan aktiv ist dient
+Zur Abfrage welche Sprache momentan aktiv ist dient (Ihr Ergebnis ist klein geschrieben)
 <pascal>
 function CurrentLanguage:string;
 </pascal>
-Hier noch der Gesamte Quelltext der Übersetzungsunit:
+Hier noch der gesamte Quelltext der Übersetzungsunit:
 <pascal>
 unit Translator;

@@ Zeile 3: / Zeile 3: @@
 Als Lokalisierung bezeichnet man den Vorgang eine Software in verschiedene Sprachen zu übersetzen.
-Besonders schwer ist die Übersetzung in Sprachen mit komplett anderem Zeichensatz(Kyrillisch, Chinesisch, Japanisch etc.), insbesondere wenn diese Multibyte-Schriften benötigen. So weit wird jedoch kaum ein Hobbyentwickler gehen, der aus keinem dieser Länder stammt, weshalbt ich darauf nicht eingehen werde.
+Besonders schwer ist die Übersetzung in Sprachen mit komplett anderem Zeichensatz(Kyrillisch, Chinesisch, Japanisch etc.), insbesondere wenn diese Multibyte-Schriften benötigen. So weit wird jedoch kaum ein Hobbyentwickler gehen, der aus keinem dieser Länder stammt, weshalb ich darauf nicht eingehen werde.
 == Anforderungen ==
@@ Zeile 11: / Zeile 11: @@
 == Ansätze ==
-* Formularresourcen (Borland)<br>Nachteil: Es ist schwer das Formular nach dem Übersetzen noch anzupassen und es wird bei sonstigen Texten keine Unterstüzung geboten
+* Formularresourcen (Borland)<br>Nachteil: Es ist schwer das Formular nach dem Übersetzen noch anzupassen und es wird bei sonstigen Texten keine Unterstützung geboten
-* Programm das im Quelltext alle Strings suchen unt ersetzen kann<br>Nachteil: Es gibt viele nicht zu übersetzende Strings, Programm muss für jede Spreche kompiliert werden
+* Programm das im Quelltext alle Strings suchen und ersetzen kann<br>Nachteil: Es gibt viele nicht zu übersetzende Strings, Programm muss für jede Spreche kompiliert werden
 * Übersetzungsfunktion:<br>Vorteil: Kann überall im Quelltext eingesetzt werden<br>Nachteil: Jeder zu übersetzende String muss an diese Funktion übergeben werden

@@ Zeile 16: / Zeile 16: @@
 == Einfaches Übersetzungssystem ==
 Hier werde ich den 3. Ansatz implementieren: eine Übersetzungsfunktion
 Ich verwende zur Übersetzung Stringlisten der Form
@@ Zeile 99: / Zeile 100: @@
   showmessage(translate('attackmsg',[SpielerNummer]));
   showmessahe(translate('chatmsg',[SpielerNummer,Nachricht]));
 </pascal>
@@ Zeile 152: / Zeile 158: @@
 end.
 </pascal>
 <pascal>