search

maxkleiner / maXbox4

code compiler script studio
GNU General Public License v3.0
23 stars 10 forks source link

for loop with conditions #3

Closed maxkleiner closed 5 years ago

maxkleiner commented 7 years ago

Such construct for it:= it < 40-zeile do as for each to items. for it:= (it < 40-zeile and it > 20) do

maxkleiner commented 5 years ago

procedure GetKLList(List: TStrings); var AList : array [0..9] of Hkl; AklName: array [0..255] of Char; i: Longint; begin List.Clear; for i := 0 to GetKeyboardLayoutList(SizeOf(AList), AList) - 1 do begin GetLocaleInfo(LoWord(AList[i]), LOCALE_SLANGUAGE, AklName, SizeOf(AklName)); List.AddObject(AklName, Pointer(AList[i])); end; end;