Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Edit und string (https://www.delphipraxis.net/8214-edit-und-string.html)

Luckie 31. Aug 2003 10:22

Re: Edit und string
 
Meine Antwort gillt immer noch.

Sharky 31. Aug 2003 10:24

Re: Edit und string
 
Zitat:

Zitat von Spider
Nach dem ich auf den Button geklickt habe!

So wie im DP chat!

Okay, bevor ich dir die 5 Zeilen Code gebe erstmal einige Tips.

Mit der Funktion POS kannst Du festellen ob ein bestimmte Zeichenfolge in einem Stringvorhanden ist.

mit IF machst Du Vergleichsabfragen.

Damit solltest Du es schaffen. Wenn nicht -> Schreib noch einmal.

Die Muhkuh 31. Aug 2003 10:25

Re: Edit und string
 
Sorry POS kenn ich net wo muss man das den einsetzen?

Luckie 31. Aug 2003 10:27

Re: Edit und string
 
Pos würde ich hier nicht nehmen. Es soll ja heißen genau dann wenn. Arbeitet man hier mit pos führt auch das:
Zitat:

Hello/cuWorld
Zum wohl nicht gewollten Ergebnis. Was bei einer exakten Abfrage des Strings nicht passiert.

CalganX 31. Aug 2003 10:28

Re: Edit und string
 
Cursor auf Pos und dann F1. Ist doch ganz einfach... :roll:
Mit if ... then kannst du was Abfragen.
Edit1 hat die Eigenschaft Text, in der der Text drin steht.

Jetzt langsam dürftest du drauf kommen. Wenn es immer noch nicht funkt, dann poste nochmal und ich gebe dir ein Beispiel.

Chris

Sharky 31. Aug 2003 10:29

Re: Edit und string
 
Ich hatte es so verstanden das es immer wenn /cu im Edit steht (egal wo) passieren soll.

hihi... ausserdem lernt Spider so gleich eine neue Funktion :wink:

Die Muhkuh 31. Aug 2003 10:34

Re: Edit und string
 
Zitat:

Zitat von Luckie
Pos würde ich hier nicht nehmen. Es soll ja heißen genau dann wenn. Arbeitet man hier mit pos führt auch das:
Zitat:

Hello/cuWorld
Zum wohl nicht gewollten Ergebnis. Was bei einer exakten Abfrage des Strings nicht passiert.

Das ist ja egal haupsache das Ergebnis kommt!

Zitat:

Cursor auf Pos und dann F1. Ist doch ganz einfach...
Mit if ... then kannst du was Abfragen.
Edit1 hat die Eigenschaft Text, in der der Text drin steht.
Ne geht irgendwie auch nicht!

Zitat:

Wenn es immer noch nicht funkt, dann poste nochmal und ich gebe dir ein Beispiel.
Sehr nett!


@all

Also irgenwie wills das hallt nicht!


Edit: Vielleicht kommt mal einer in den chat! Kann man dann besser ausdiskutierren!! Edit

CalganX 31. Aug 2003 10:36

Re: Edit und string
 
Also. Was ein OnClick-Ereignis weißt, du ja? :roll:
Delphi-Quellcode:
if Zahl1=Zahl2 then begin
 // tu was
end;
Hier wird überprüft, ob die Variable Zahl1 gleich der Zahl2 ist. Das gleiche geht auch mit Strings und Konstanten (einfach Strings ausgeschrieben).

Wie gesagt: Edit1.Text enthält den Text. Wird es langsam endlich klar?

Chris

Sharky 31. Aug 2003 10:38

Re: Edit und string
 
Zitat:

Zitat von Spider
...Ne geht irgendwie auch nicht!..

Seltsam.

Egal.

Hier zwei Varianten:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
 if (Pos ('/cu',Edit1.Text) > 0) then
  begin
   close;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if (LowerCase (Edit1.Text) = '/cu') then
  begin
   close;
  end;
end;
In der ersten wird geschaut ob irgendwo im Edit "/cu" steht (klein geschrieben)

In der zweiten wird geschaut ob im Edit ausschließlich "/cu" steht. Dabei ist es dank der Funktion LowerCase egal ob "/cu" oder "/CU" oder "/cU" im Edit steht. Jetzt kannst Du die beiden noch kombinieren und .... fertisch.

Die Muhkuh 31. Aug 2003 10:39

Re: Edit und string
 
Zitat:

Zitat von Chakotay1308
Also. Was ein OnClick-Ereignis weißt, du ja? :roll:

Ohje *ganzhintenimgedichtnisstöber*
Klar weiß ich was ein on Click ereignis ist!

das mit der If/Then strucktur leuchtet schon ein.

Muss Zahl1 dann ein const sein oder?


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:21 Uhr.
Seite 2 von 3     12 3      

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz