Forum: Sonstige Fragen zu Delphi
Delphi
by malo,
11. Dez 2005
Ein wahrscheinlich massiver Fehler noch:
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 ;)
Forum: Sonstige Fragen zu Delphi
Delphi
by malo,
11. Dez 2005
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:
procedure TOszVerwalt.btsuchenClick(Sender: TObject);
var s,vergleich,ebg,bgang:string;
i,a: integer;
begin
edbildgang.text:=ebg;
with libanzeige do begin
Forum: Sonstige Fragen zu Delphi
Delphi
by malo,
11. Dez 2005
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:
function CmpText(s1,s2: string): integer;
begin
result...
Forum: Sonstige Fragen zu Delphi
Delphi
by malo,
11. Dez 2005
Mir fällt auch diese Funktion auf:
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:
Forum: Sonstige Fragen zu Delphi
Delphi
by malo,
11. Dez 2005
Mein Auto ist kaputt. Kannst du es reparieren?
Bitte zeig uns dochmal den Quelltext, damit wir dein Problem evtl. nachvollziehen können ;)