brauche hilfe zu suchen un dsortieren in delphi

[sandrachen]

quelltext.....

Delphi-Quellcode:

function vBildGang(bgang:string) : string;
 var index: char;
 bild:string;
begin
  index:=bgang[1];
  case index of
    '1'      : bild:='OG';
    '2'      : Bild:='BOS';
    '4'      : Bild:='OF';
    '5'      : Bild:='OBF';
    '6'..'9' : bild:='OB';
    else bild:='x ' ;
    if bild='x'
    then showmessage('Bildungsgang ist unbekannt!');
  end;
  vbildgang:=bild

end;

procedure TOszVerwalt.btsuchenClick(Sender: TObject);
var s,vergleich,ebg,bgang:string;
    i,a: integer;
begin

 edbildgang.text:=ebg;
 with libanzeige do begin
 for i := 1 to libanzeige.Items.Count do
 s:=libanzeige.Items[i];
       s:=libAnzeige.Items[libAnzeige.ItemIndex];
 a:=pos('. ',s) ;
 delete(s,1,a+2) ;
 bgang:=s;
 vergleich:=vbildgang(bgang);
 if vergleich<>ebg
  then libanzeige.Items.Delete(i);

oder---------------------------------------------------------------------

Delphi-Quellcode:

function Ansicomparetext(s1,s2:string):integer;
var blub:integer;
begin
blub:=ansicomparetext(s1,s2);
end;


procedure TOszVerwalt.btsuchenClick(Sender: TObject);
var s1,s2,alles, blub:string;
    i,z, x: integer;
begin
S1:=edbildgang.text;
repeat
alles:=libanzeige.items[i];
z:=pos('. ',alles) ;
delete(alles,1,z);
s2:=alles;
x:=Ansicomparetext(s1,s2);
if x <> 0
then libanzeige.items.Delete(i);
i:=i+1;
until i=  libanzeige.Items.Count ;

 end;

und hier noch was.....

Delphi-Quellcode:

procedure TOszVerwalt.btsuchenClick(Sender: TObject);
var alles:string;
   z,i : integer;
begin
 i:=0 ;
repeat
alles:=libanzeige.items[i];
z:=pos('. ',alles) ;
delete(alles,1,z+2);
if libanzeige.items[i] <> edbildgang.text
then libanzeige.items.Delete(i);
i:=i+1;
until i= libanzeige.Items.Count ;

ich weiß dass ich doof bin , hab nur voll die panik....

[edit=r_kerber]Ich habe da mal Delphi-Tags eingefügt, das nächste Mal bitte selbst machen. Mfg, r_kerber[/edit]