Einzelnen Beitrag anzeigen

Alphacodex

Registriert seit: 16. Mär 2006
65 Beiträge
 
Delphi 2006 Professional
 
#1

Seltsame StringList <-> Strings Problem

  Alt 17. Aug 2009, 15:25
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...
  Mit Zitat antworten Zitat