Delphi-Quellcode:
procedure TForm1.ExecuteAddons(aktuell: string);
var newlist: TStringlist;
i,o,u: integer;
a,b: string;
begin
newlist := TStringlist.Create;
newlist.LoadFromFile(aktuell+'AddOns.txt');
for i := 0 to newlist.count-1 do
begin
a := copy(newlist[i],0,pos(':', newlist[i])-1);
b := copy(newlist[i],pos(':', newlist[i])+2,length(newlist[i])-pos(':', newlist[i])-2);
o := Checklistbox1.Items.IndexOf(a);
if (pos('enabled',b) >=0) then Checklistbox1.Checked[o] := true;
end;
end;
Bsp eines newlist eintrages "Titan: enabled",
wenn dahinter ein enabled steht soll er quasi den namen davor in
der Checklistbox suchen und wenn er da vorhanden ist aktivieren.
Nur irgendwie funktioniert das mit dem IndexOf bzw IndexOfName nicht.
a und b sind richtig gefüllt, einmal mit dem namen und einmal
mit dem enabled/disabled, nur o ist halt meißt -1 oder extrem hoch
jenachdem welche IndexOf funktion ich nehme.
Kann mir da zufällig jemand weiter helfen ?
Zur Frage des Sinns dieses Codes: Das ganze hat mit World of Warcraft zu tun.
Ich will die Addon Datei eines Charakters auslesen und bearbeiten.
Daher das ganze mit dem suchen den sobald man einen Charakternamen anklickt soll
der anzeigen welche addons bei diesem Charakter aktiviert sind.
P.S.: Hab nach mehreren Jahren nun das erste mal wieder angefangen mit Delphi zu programmieren
sollten also diverse kleine Fehler drin sein bitte ich das zu entschuldigen.
Mfg Holger alias Capa
:closed: hab das script umgebastelt und nun gehts