Hi Pascal list,

I have the following unit.

I probably need to define the font name for each language also does anyone know the standard linux fonts for these languages? How does this differ for Macs and Windows in Lazarus? I am trying to make this cross platform.

This is what I need help with doing, in Lazarus or Pascal.

type
   languages = ( English, Italian, German, Spanish, Esperanto,
Simplified_Chinese, Japanese );
   {
   Ask user for language preference

Question: How do I populate a combobox (drop down menu) with these enumerated values?
Note that these will be added to as more languages are supported.

Open ini file and text read file containing AnsiString constants

     e.g.
       if FileExists( filename ) then
         AStringList.LoadFromFile( filename );
   read and assign AnsiStrings from text file to variables
     e.g.
       // something like...
       var j,k : integer
       k := 1;
       for j := 0 to AStringList.count - 1 do
       begin
         AnsiString_noun_of_green_things[ language, k ] :=
AStringList.String[ j ];
         inc(k);
       end;

close ini file
close text file // since this is read with a LoadFromFile, is this necessary?
}

unit testA.pas

type
   green_types = ( Fragment, Baby, Adult, Egg, Group_of_Green_things );
   fragments_to_eggs_subrange = Fragments..Eggs;
type
   languages = ( English, Italian, German, Spanish, Esperanto,
Simplified_Chinese, Japanese );
// I probably need to define the font name for each language also
// does anyone know the standard linux fonts for these languages???
   AnsiString_noun_of_green_message_2D_array =
     array[languages,green_types] of AnsiString;
// etc etc etc
var
   AnsiString_noun_of_green_message
     : array[green_types] of AnsiString;
     {
       (' a Fragment', ' a Baby', ' an Adult',
        ' an Egg', ' The Group of Green Things');
     }
type
   language_array_of_AnsiString = array[ languages ] of AnsiString;
//...
var
   AnsiString_noun_of_green_things :array[ languages, green_jj ]of
AnsiString;
// etc
   language : languages;