//******************************************************************************
//Haupt_Unit
//Confign aus Text.dll
Procedure Button_Cfg_Lesen_BCU();
var
lib_h : THandle;
res_s : TResourceStream;
config_sl : TStringList;
i : Integer;
j : Integer;
pos_i : Integer;
xp_version_s : String;
begin
//Config Array löschen
Config_Array_Loeschen_BCU;
//
Dll laden
lib_h := LoadLibrary(PChar(g_sprachen_path_s + g_programm_sprache_s + '_Shell.dll'));
config_sl := TStringList.Create;
config_sl.Clear;
res_s := NIL;
if (lib_h <> 0) then
begin
try
res_s := TResourceStream.Create(lib_h, 'Button_Cfg', RT_RCDATA);
//In StringList laden
config_sl.LoadFromStream(res_s);
for i := 1 to k_max_xp_tweak_i do
begin
for j := 0 to config_sl.Count - 1 do
begin
//Version auslesen
if (Pos(IntToStr(i) + '_HXPTT_XPVersion=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
xp_version_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//XP Version prüfen
if (XP_Version_Pruefen_GU(xp_version_s) = True) then
begin
//Daten ins Array schreiben
//Titel
if (Pos(IntToStr(i) + '_HXPTT_Titel=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].titel_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//XPVersion
if (Pos(IntToStr(i) + '_HXPTT_XPVersion=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].xpversion_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Menu Nr.
if (Pos(IntToStr(i) + '_HXPTT_Menu=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].menu_i := StrToInt(Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j])));
end;
//Header Nr.
if (Pos(IntToStr(i) + '_HXPTT_Header=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].header_i := StrToInt(Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j])));
end;
//Button Nr.
if (Pos(IntToStr(i) + '_HXPTT_Button=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].button_i := StrToInt(Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j])));
end;
//Daten Lesen Option
if (Pos(IntToStr(i) + '_HXPTT_Daten_Lesen=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].datenlesen_i := StrToInt(Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j])));
end;
//Daten Schreiben Option
if (Pos(IntToStr(i) + '_HXPTT_Daten_Schreiben=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].datenschreiben_i := StrToInt(Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j])));
end;
//Daten Auswerten Option
if (Pos(IntToStr(i) + '_HXPTT_Daten_Auswerten=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].datenauswerten_i := StrToInt(Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j])));
end;
//Daten Elemente Option
if (Pos(IntToStr(i) + '_HXPTT_Daten_Elemente=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].datenelemente_i := StrToInt(Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j])));
end;
//Daten Status Option
if (Pos(IntToStr(i) + '_HXPTT_Daten_Status=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].datenstatus_i := StrToInt(Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j])));
end;
//Daten XPSpeichern Option
if (Pos(IntToStr(i) + '_HXPTT_Daten_XPSpeichern=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].datenxpspeichern_i := StrToInt(Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j])));
end;
//Daten BackupSpeichern Option
if (Pos(IntToStr(i) + '_HXPTT_Daten_BackupSpeichern=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].datenbackupspeichern_i := StrToInt(Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j])));
end;
//Daten Wert Speichern Option
if (Pos(IntToStr(i) + '_HXPTT_Daten_WertSpeichern=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].datenwertspeichern_i := StrToInt(Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j])));
end;
//Daten Füllen Option
if (Pos(IntToStr(i) + '_HXPTT_Daten_Fuellen=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].datenfuellen_i := StrToInt(Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j])));
end;
//Daten auf Freigabe prüfen
if (Pos(IntToStr(i) + '_HXPTT_Daten_Freigabe=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].datenfrei_i := StrToInt(Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j])));
end;
//Auf anderen Daten ein Verweis
if (Pos(IntToStr(i) + '_Daten_Verweis=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].datenverweis_i := StrToInt(Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j])));
end;
//Key1
if (Pos(IntToStr(i) + '_HXPTT_Root1=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].root1_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Path1
if (Pos(IntToStr(i) + '_HXPTT_Key1=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].key1_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert1
if (Pos(IntToStr(i) + '_HXPTT_Wert1=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert1_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert2
if (Pos(IntToStr(i) + '_HXPTT_Wert2=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert2_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert3
if (Pos(IntToStr(i) + '_HXPTT_Wert3=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert3_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert4
if (Pos(IntToStr(i) + '_HXPTT_Wert4=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert4_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert5
if (Pos(IntToStr(i) + '_HXPTT_Wert5=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert5_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert6
if (Pos(IntToStr(i) + '_HXPTT_Wert6=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert6_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert7
if (Pos(IntToStr(i) + '_HXPTT_Wert7=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert7_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert8
if (Pos(IntToStr(i) + '_HXPTT_Wert8=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert8_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert9
if (Pos(IntToStr(i) + '_HXPTT_Wert9=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert9_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert10
if (Pos(IntToStr(i) + '_HXPTT_Wert10=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert10_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Key2
if (Pos(IntToStr(i) + '_HXPTT_Root2=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].root2_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Path2
if (Pos(IntToStr(i) + '_HXPTT_Key2=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].key2_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert21
if (Pos(IntToStr(i) + '_HXPTT_Wert21=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert21_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert22
if (Pos(IntToStr(i) + '_HXPTT_Wert22=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert22_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert23
if (Pos(IntToStr(i) + '_HXPTT_Wert23=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert23_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert24
if (Pos(IntToStr(i) + '_HXPTT_Wert24=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert24_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert25
if (Pos(IntToStr(i) + '_HXPTT_Wert25=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert25_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Key3
if (Pos(IntToStr(i) + '_HXPTT_Root3=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].root3_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Path3
if (Pos(IntToStr(i) + '_HXPTT_Key3=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].key3_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert31
if (Pos(IntToStr(i) + '_HXPTT_Wert31=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert31_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert32
if (Pos(IntToStr(i) + '_HXPTT_Wert32=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert32_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert33
if (Pos(IntToStr(i) + '_HXPTT_Wert33=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert33_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert34
if (Pos(IntToStr(i) + '_HXPTT_Wert34=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert34_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert35
if (Pos(IntToStr(i) + '_HXPTT_Wert35=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert25_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Key4
if (Pos(IntToStr(i) + '_HXPTT_Root4=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].root4_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Path4
if (Pos(IntToStr(i) + '_HXPTT_Key4=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].key4_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert41
if (Pos(IntToStr(i) + '_HXPTT_Wert41=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert41_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert42
if (Pos(IntToStr(i) + '_HXPTT_Wert42=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert42_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert43
if (Pos(IntToStr(i) + '_HXPTT_Wert43=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert43_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert44
if (Pos(IntToStr(i) + '_HXPTT_Wert44=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert44_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert45
if (Pos(IntToStr(i) + '_HXPTT_Wert45=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert45_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Key5
if (Pos(IntToStr(i) + '_HXPTT_Root5=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].root5_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Path5
if (Pos(IntToStr(i) + '_HXPTT_Key5=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].key5_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert51
if (Pos(IntToStr(i) + '_HXPTT_Wert51=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert51_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert52
if (Pos(IntToStr(i) + '_HXPTT_Wert52=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert52_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert53
if (Pos(IntToStr(i) + '_HXPTT_Wert53=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert53_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert54
if (Pos(IntToStr(i) + '_HXPTT_Wert54=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert54_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Wert55
if (Pos(IntToStr(i) + '_HXPTT_Wert55=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].wert55_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Zusätzlicher Suchwert 1
if (Pos(IntToStr(i) + '_HXPTT_SuchWert1=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].suchwert1_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//XP Default1 Werte
if (Pos(IntToStr(i) + '_HXPTT_XP_Default1=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].xp_default1_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//XP Default2 Werte
if (Pos(IntToStr(i) + '_HXPTT_XP_Default2=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].xp_default2_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//XP Default3 Werte
if (Pos(IntToStr(i) + '_HXPTT_XP_Default3=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].xp_default3_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Homer Default1 Werte
if (Pos(IntToStr(i) + '_HXPTT_Homer_Default1=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].homer_default1_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Homer Default2 Werte
if (Pos(IntToStr(i) + '_HXPTT_Homer_Default2=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].homer_default2_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Homer Default3 Werte
if (Pos(IntToStr(i) + '_HXPTT_Homer_Default3=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].homer_default3_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//XP Soll Wert
if (Pos(IntToStr(i) + '_HXPTT_XP_Soll=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].xp_soll_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Homer Soll Wert
if (Pos(IntToStr(i) + '_HXPTT_Homer_Soll=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].homer_soll_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Element 1
if (Pos(IntToStr(i) + '_HXPTT_Element1=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].element1_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Element 2
if (Pos(IntToStr(i) + '_HXPTT_Element2=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].element2_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Element 3
if (Pos(IntToStr(i) + '_HXPTT_Element3=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].element3_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Element 4
if (Pos(IntToStr(i) + '_HXPTT_Element4=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].element4_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Element 5
if (Pos(IntToStr(i) + '_HXPTT_Element5=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].element5_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Element 6
if (Pos(IntToStr(i) + '_HXPTT_Element6=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].element6_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Element 7
if (Pos(IntToStr(i) + '_HXPTT_Element7=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].element7_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Element 8
if (Pos(IntToStr(i) + '_HXPTT_Element8=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].element8_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Element 9
if (Pos(IntToStr(i) + '_HXPTT_Element9=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].element9_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Element 10
if (Pos(IntToStr(i) + '_HXPTT_Element10=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].element10_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Element 11
if (Pos(IntToStr(i) + '_HXPTT_Element11=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].element11_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Element 12
if (Pos(IntToStr(i) + '_HXPTT_Element12=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].element12_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Element Hint 1
if (Pos(IntToStr(i) + '_HXPTT_Element_Hint1=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].element_hint1_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
//Element Hint2
if (Pos(IntToStr(i) + '_HXPTT_Element_Hint2=', config_sl.Strings[j]) = 1) then
begin
pos_i := Pos('=', config_sl.Strings[j]);
g_button_cfg_ar[i].element_hint2_s := Copy(config_sl.Strings[j], pos_i + 1, Length(config_sl.Strings[j]));
end;
end;
end;
//ProgressBar
ProgressBar_Starten_GU('I8', 'I9', 'PB_Config', 0, k_max_xp_tweak_i, i);
end;
finally
config_sl.Free;
res_s.Free;
end;
end;
//
Dll freigeben
FreeLibrary(lib_h);
end;