Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
21. Nov 2008
Noch' n Gedicht :mrgreen:function SameContent(const FirstList, SecondList: TStrings): Boolean;
var i, iIndex: integer;
tempList: TStringList;
begin
Result := FirstList.Count = SecondList.Count;
if Result then
begin
tempList := TStringlist.Create;
try
tempList.Assign(SecondList);
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
21. Nov 2008
Ich bin gerade nicht unter Windows unterwegs und kann daher nicht nachsehen, aber AFAIR ist der Unterschied zwischen Remove und Delete der Rückgabewert (Index bzw. Inhalt). Ich kann mich da aber auch irren.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
21. Nov 2008
Remove ist AFAIK eine Methode von TList. Delete sollte aber genauso gehen.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
21. Nov 2008
Oder erst die Anzahl der jeweils enthaltenen Strings ermitteln und dann in einer Schleife mit IndexOf() vergleichen. Dies dürfte aber nicht die schnellste Methode sein.
In dem Fall erübrigt sich ein weiterer Vergleich, oder? ;) Ich war davon ausgegangen, dass das bereits abgeprüft wurde.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
21. Nov 2008
Mal aus dem Hut:Gleich := CompareMem(PChar(sl1.Text),PChar(sl2.Text),Length(sl1.Text));
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
21. Nov 2008
Für eine reine Gleichheitsabfrage müsste auch CompareMem() gehen.