Hallo,
ich habe hier folgenden Code geschrieben:
Delphi-Quellcode:
procedure Tpickfall.FillBoxen;
var i : integer;
sl : TStringList;
tmpname : string;
begin
cb_fallname.Clear;
sl.Create; // sl.Sort; sl.Duplicates := dupIgnore;
for i := 0 to high(dm.falllist) do begin
tmpname := dm.falllist[i].name;
sl.Add(tmpname);
end;
cb_fallname.Assign(sl);
end;
Das seltsame ist, dass er bei jedem Durchgang der Schleife die Werte des dm.falllist Arrays verändert. Eigentlich dürfte diese Prozedur gar nichts an der falllist ändern sondern nur eben die Namen auslesen. Er schreibt aber (laut Debugger) bei jedem Durchgang ins Namensfeld irgendwelche chinesische Zeichen. Hat das irgendwas mit dem in Delphi 2009 eingeführten
Unicode zu tun? Was aber immer noch nicht erklären würde, warum diese Prozedur überhaupt was an der fallliste ändert...
Kann mir jemand weiterhelfen??
Grüße
Codex
P.S. als kurze Erklärung was diese Proc überhaupt machen soll: Es sollen aus einem Array (falliste) alle Namen ausgelesen werden und in eine sortierte und von Duplikaten befreite StringList (sl) eingefüllt werden. Diese StringList soll schließlich an die Items (:TStrings) einer ComboBox(cb_fallname) übergeben werden, damit die Namen in dieser Combobox auftauchen...