brauche hilfe zu suchen un dsortieren in delphi

[malo]

Mir fällt auch diese Funktion auf:

Delphi-Quellcode:

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

AnsiCompareText kenn ich nicht (gibt es den Borland-Units irgendwo?). Aber so wie das dort aussieht, ist das eine Endlosschleife, die immer nur in eine lokale Variable schreibt. :gruebel:

[sandrachen]

Ansicomparetext vergleicht strings und unterscheidet nicht anch groß und kleinschreibung.....

noch mehr fragen? * :oops: *

[malo]

Zitat:

Zitat von sandrachen

Ansicomparetext vergleicht strings und unterscheidet nicht anch groß und kleinschreibung.....

Und wieso redklarierst du die Funktion dann? Die hast du doch schon. Wieso eine weitere Funktion erstellen, die im Grunde nichts macht (denn deine Funktion vergleicht die Strings zwar, aber man kann das nirgendwo festlegen. Wenn, dann müsstest du die Variable blub durch "result" ersätzen (result musst du nicht deklarieren!). So in etwa:

Delphi-Quellcode:

function CmpText(s1,s2: string): integer;
begin
  result := AnsiCompareText(s1,s2);
end;

Alles andere wäre sinnlos. ;) ).

[sandrachen]

ich mache es so, weil mein toller lehrer das so auf seinem ab gemahct hat und meinete das es auch mit result möglich wäre... hmmmm...

[ManuMF]

Wenn du nach Fragmenten in einem String suchst, kannst du auch das verwenden:

Delphi-Quellcode:

if (Pos(Lowercase(Suchstring), Lowercase(Hauptstring)) = 0) then
  Showmessage('Nicht gefunden');

Da ist GROßklein auch unwichtig.

Gruß,
ManuMF

[sandrachen]

das problem ist ja auch, dass das noch nicht einmal funktioniert, denn er achtet auf groß und kleinschreibung....

hat sich jetzt einer das ganze gebilde schon einmal genauer angeguckt und einen grawierenden fehler gefunden warum er nun das falsche ausgibt?

thx sandra :coder:

[malo]

Zitat:

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 ;)

[sandrachen]

also.... das was gelöscht werden soll ist alles bis zu diesem zeichen hin, da wir es so machen sollten, dass ds die nicht aufgelistet werden sollen nämlich einfach gelöscht werden aus der listbox....

[malo]

Ein wahrscheinlich massiver Fehler noch:

Delphi-Quellcode:

if vergleich<>ebg
  then libanzeige.Items.Delete(i);

Wie bereits gesagt, ebg ist nicht gesetzt. Es hat also keinen Wert. Daher ist es wahrscheinlich immer <> Vergleich. Du musst ebg doch einen Wert zuweisen, wenn du ebg mit irgendwas vergleichst ;)

[sandrachen]

meine freundin probiert es gerade aus... ma schaun thx