Forum: Sonstige Fragen zu Delphi
Delphi
by jaenicke,
28. Feb 2009
Ja, stimmt schon, zudem wird der Parameter ohne das var nicht auf dem Stack übergeben wie mir gerade aufgefallen ist.
Forum: Sonstige Fragen zu Delphi
Delphi
by jaenicke,
28. Feb 2009
Also meiner Meinung nach macht es vom erzeugten Code her keinen Unterschied, oder irre ich mich da? :gruebel: Das probier ich jetzt aus.
Forum: Sonstige Fragen zu Delphi
Delphi
by jaenicke,
28. Feb 2009
Klar tut es das, aber mit dem var sieht man klar, dass in diese Variable etwas reingelegt wird. Und deshalb bevorzuge ich diese Schreibweise. Die andere bekommt das const, weil diese nicht verändert wird.
Durch diese Schlüsselwörter sieht man sehr viel besser wie man eine fremde Methode benutzt finde ich.
Forum: Sonstige Fragen zu Delphi
Delphi
by jaenicke,
28. Feb 2009
Ok, wie wäre es so (Zum Testen eine ListBox und ein Button): ;-)procedure TForm149.Button1Click(Sender: TObject);
procedure CountOccurrences(const MyList: TStrings; var Result: TStrings);
var
i, CurIndex: Integer;
begin
for i := 0 to MyList.Count - 1 do
begin
CurIndex := Result.IndexOf(MyList);
if CurIndex >= 0 then
Forum: Sonstige Fragen zu Delphi
Delphi
by jaenicke,
28. Feb 2009
Fast exakt das macht mein Code. :mrgreen:
Der einzige Unterschied ist, dass du die selbe Liste 1 durchgehen musst.
Die von dir beschriebene Vorgehensweise ist ebenfalls identisch zu meiner, nur dass ich in der ersten Liste nichts lösche. Wofür auch, ich gehe einfach alle Einträge durch und suche nach jedem in der Ergebnisliste.
Eine TStringList ist genau wie auch die Zeilen von einem Memo...
Forum: Sonstige Fragen zu Delphi
Delphi
by jaenicke,
28. Feb 2009
Schau mal hier, da habe ich vor kurzem genau das geschrieben:
http://www.delphi-forum.de/viewtopic.php?p=550678#550678
Du musst nur noch die Ergebnisliste dann in die ListView ausgeben.