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;
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
