Einzelnen Beitrag anzeigen

Nimoee

Registriert seit: 20. Aug 2003
Ort: Darmstadt
131 Beiträge
 
Delphi 5 Professional
 
#3

Re: Programm übersetzbar machen?

  Alt 23. Sep 2003, 08:26
Hallo,

wir führen unsere ganzen Textsteuerung ( Übersetzung ) mit INI's durch.
Dass das Ganze langsam sei ist ein Gerücht!
Du lädtst die Texte während die Forms erstellt werden. Die Ini Datei nur einmal öffen, alle Texte lesen ..., Ini Datei zu.
Um die Performance zu erhöhen, werden die Forms erst erzeugt, wenn sie gebraucht werden. ( Keine dynamische Forms ).
Die Texte sind für die verschieden Sprachen durch senkrechte Striche geteilt. Andere Methoden ( registry oder Datenbanken ) haben wir hier alle schon probiert und sind durchgefallen. Wir verwalten so ungef
Geht prima.

Hier Auszüge aus unserer source:

Delphi-Quellcode:
Procedure assign_ini;
Begin
     fini1:=tinifile.create(ini_path+'xxxxxxx.ini');
end;

Procedure close_ini;
Begin
     fini1.free;
end;

Function lese_sprache(gruppe,eintrag:string;sep:char;sprache:integer):string;
var a:string;n:integer;
Begin
   int_sep:=sep;
   int_lang:=sprache;
   a:=fini1.readstring(gruppe,eintrag,'??');
   if a='??then
      Begin
         lese_sprache:='??';
         exit;
      end;
   n:=1;
   while n<sprache do
      Begin
         delete(a,1,pos(sep,a));
         inc(n);
      end;
//Zeile eingefügt am 16.01.2003 ~ markiert führendes Blank
//wird hier durch blank ersetzt
   For n:=1 to length(a) do if a[n]='~then a[n]:=' ';

   If pos(sep,a)<>0 then lese_sprache:=copy(a,1,pos(sep,a)-1)
      else lese_sprache:=a;
end;
Nimoee
  Mit Zitat antworten Zitat