Hi! ich hab eine funktion geschrieben(funktioniern tut sie noch nicht), die die "zuelezt verwendeten strings" in einer Liste anzeigt. Die strings, die in die Lisre eingefügt werden, haben alle einen "Counter",d.h. die strings bekommen eine interne Zahl mitgegeben, wenn sie ausgewählt werden. Dieser interne/unsichtbare Counter dient dazu dar, dass man später die Items in der Liste nach "meist verwendete strings" sortieren kann.
Hier der Code:
Delphi-Quellcode:
function Recent(s:string):string;
var Vorhanden:boolean;
k:Integer;
c:array[0..103] of Integer; {insgesamt/max. 103 strings, die in die Liste eingefägt werden können}
begin
vorhanden:=false;
for k:=0 to Detail2.ListBox1.Items.Count-1 do {Liste durchgehen}
begin
if s=Detail2.ListBox1.Items.Strings[k] then
begin
vorhanden :=true; {ist schon in der Liste vorhanden}
c[k]:=c[k]+1; {den Counter eins erhöhen,}
exit; {nicht in die Liste einfügen}
end; {und raus}
end;
if vorhanden=false then {nicht vorhanden}
begin
c[i]:=1; {hier weiss ich nicht mehr weiter}
inc(i); {nächstes Feld und DANN soll das nächste Feld auf 1 gesetzt werden}
end;
Detail2.ListBox1.Items.Add(s); {neu in die Liste einfügen}
Result:=s;
end;
Kann sein, dass dieser Code ziemlich unprofessionell zu euch scheint; ich bin immer offen für neues
Danke MfG LkZ