Forum: Algorithmen, Datenstrukturen und Klassendesign
FreePascal
by Amnon82,
20. Aug 2010
Nun hab ichs endlich. Hier die Snippes:
Liste erstellen:
Aufruf bei Programmstart
//Get Keyboard Variants
AMemoVariants := TMemo.Create(Form1);
Processcmd:='xkeyboard-variants';
Processandwait(Processcmd);
Der ganze Process
Forum: Algorithmen, Datenstrukturen und Klassendesign
FreePascal
by Amnon82,
20. Aug 2010
Ok Ich hab nun folgenden Code zusammengebaut:
// Fill Keyboard Variants
if Processcmd = 'xkeyboard-variants' then
begin
Form1.Page2Variantlist.clear;
Form1.Page2Variantlist.items.add('');
for i := 0 to AMemo.Lines.Count - 1 do
if AMemo.lines = '' then
// do nothing
Forum: Algorithmen, Datenstrukturen und Klassendesign
FreePascal
by Amnon82,
20. Aug 2010
Danke für den Tip. Ich hab noch ein bisschen weiter gesucht und folgendes zusammengeschrieben, was mir die Lösung bringt:
procedure Processandwait(Executable : String);
var
AProcess1: TProcess;
AStringList: TStringList;
AMemo: TMemo;
Result, AString1, AString2 : String;
i : integer;
Forum: Algorithmen, Datenstrukturen und Klassendesign
FreePascal
by Amnon82,
20. Aug 2010
//Function ProccessAndWait
procedure Processandwait(Executable : String);
var
AProcess1: TProcess;
AStringList: TStringList;
AMemo: TMemo;
Result : String;
i : integer;
begin
Forum: Algorithmen, Datenstrukturen und Klassendesign
FreePascal
by Amnon82,
20. Aug 2010
Nach über 3 Jahren Pause bin ich wieder zurück beim Coden. Nun nutze ich Lazarus 0.2.29 auf meiner Linux Distribution und komm nach langem Suchen hier im Forum nicht zum Nenner.
Mein Problem ist wie folgt:
Ich hab eine List wie zum Beispiel
la Laos
latam Latin American
lt Lithuania
lv Latvia
mao Maori