wenn in ... dann machwas

[Die Muhkuh]

HiHo,

da sich mein Modem verabschiedet hat muss ich vom Notebool posten :grin:

Also mein gedanke ist ganz einfach und zwar:


wenn in nem Edit (oder so) der text .ini vorkommt dann so per showmessage eine Meldung kommen!
z.b im edit seht "Böaböa.ini" dann so eine Meldung kommen nur WiE?

Spiddi

[mirage228]

im onChange des Edits einfügen

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if pos(ansilowercase(edit1.text), '.ini') <> 0 then
  Showmessage('INI!!!');
end;

mfG
mirage228

[Die Muhkuh]

Zitat:

Delphi-Quellcode:

 if pos(ansilowercase(edit1.text), '.ini') <> 0 then
  Showmessage('INI!!!');

Mannmanmanduehm, kein Wunder geht meins nicht! ich hab nähmilch das so geschrieben :oops:

Delphi-Quellcode:

 if pos('.ini', Edit1.text) <> 0 then
  Showmessage('INI!!!');

:oops:

THX MIRA

[Duffy]

Hallo Spider,

Zitat:

Zitat von Spider

Zitat:

Delphi-Quellcode:

 if pos(ansilowercase(edit1.text), '.ini') <> 0 then
  Showmessage('INI!!!');

Mannmanmanduehm, kein Wunder geht meins nicht! ich hab nähmilch das so geschrieben :oops:

Delphi-Quellcode:

 if pos('.ini', Edit1.text) <> 0 then
  Showmessage('INI!!!');

:oops:

THX MIRA

Die erste Version von Mirrage dürfte wohl schiefgehen, so die Hilfe von Delphi

Zitat:

Zitat von Delphi Hilfe

Die Funktion gibt den Indexwert des ersten Zeichens innerhalb des angegebenen Teil-Strings zurück, der in einem String vorkommt.

Unit

System

Kategorie

String-Verarbeitung

Delphi-Syntax:

function Pos(Substr: string; S: string): Integer;

Beschreibung

In Delphi sucht Pos in dem String S nach dem Teil-String Substr. Die Parameter Substr und S sind String-Ausdrücke.

Wird der Teil-String gefunden, gibt Pos den Integer-Index des ersten Zeichens von Substr in S zurück. Die Groß/Kleinschreibung wird von Pos nicht berücksichtigt. Ist Substr nicht vorhanden, wird der Wert Null zurückgegeben.

Die Funktion PosEx entspricht Pos, hat aber eine umfangreichere Funktionalität und kann in C++ Code verwendet werden.

Es liegt wohl eher daran, das beim vergleichen die Gorß- Kleinschribung nicht beachtet wird.

[mirage228]

Wenn Groß- und Kleinschreibung keine Rolle spielt, kann man mein AnsiLowerCase() höchstens weglassen - funktionieren würde es auf jeden Fall.

mfG
mirage228 [im Übrigen mit einem r @ Duffy]

[Duffy]

@Mirage228

Zitat:

Zitat von mirage228

Wenn Groß- und Kleinschreibung keine Rolle spielt, kann man mein AnsiLowerCase() höchstens weglassen - funktionieren würde es auf jeden Fall.

mfG
mirage228 [im Übrigen mit einem r @ Duffy]

die Parameter zum suchen sind vertauscht. In deinem Beispiel suchst Du "ansilowercase(edit1.text)" in ".ini". Das klappt nur wenn "ansilowercase(edit1.text)" = ".ini" ist.
bye

[mirage228]

In dem Fall hast du natürlich Recht!

Auf jedenfall muss der Parameter "SubStr" von Pos = ".ini" und der Parameter "S" = Edit1.Text;

Ich weiss jetzt nicht, in wie fern die Parameterreihenfolge sich bei den Delphi Versionen unterscheiden.

mfG
mirage228

[Duffy]

Hallo mirage228,
die Parameterreihenfolge hat sich seit Turbo Pascal nicht verändert. Sie ist in allen Versionen gleich geblieben.
bye

[Die Muhkuh]

Hiho,

fängt ja nicht an zu streiten!

@Mirage

deine lösung geht nicht wenn z.b da steht 'odkod.ini' kommt keine meldung!

[mirage228]

Hi Spider,

die Parameter musst du genau anders rum schreiben, wie Duffy bereits gesagt hatte ;-)

mfG
mirage228