Zitat von
sandrachen:
das problem ist ja auch, dass das noch nicht einmal funktioniert, denn er achtet auf groß und kleinschreibung....
Bei Manus Methode ganz sicher nicht. Denn da wird alles in Kleinbuchstaben umgewandelt und dann verglichen. Lowercase('A') ist das selbe wie Lowercase('a').
Mir fällt aber ansonsten noch sowas hier auf:
Delphi-Quellcode:
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);
Mal davon abgesehn, dass da 2 End's fehlen, und die Formatierung schrecklich ist...
Bei "edbildgang.text := ebg;" ist ein kleines Problem, denn: ebg hat noch gar keinen Wert. Zuerst muss ebg nämlich initialisiert werden. Sonst ist diese Zeile nicht korrekt, bzw. kann auch zu massiven Fehlern führen (ich kenne sowas...).
Auch ist mir nicht ganz klar, was hier gelöscht werden soll:
Delphi-Quellcode:
a:=pos('. ',s) ;
delete(s,1,a+2) ;
Vielleicht wäre es ja hilfreich zu erfahren, wie der Suchstring aufgebaut ist. Du kannst ja mal ein Beispiel posten
