Edit und string

[Die Muhkuh]

hi,

ist es möglich das ich in ein Editfeld z.b /cu eingebe und das dann das Programm geschlossen wird?
Soll natürlich nicht nur mit /cu gehen!


Spider

[Luckie]

if / then -> F1
<> -> F1
= -> F1

[Die Muhkuh]

Hä was? :wiejetzt:

[Luckie]

Falls du es noch nicht gemerkt hast, F1 ruft bei Delphi die Hilfe auf.

[CalganX]

Luckie meint, dass du dir in der Hilfe (mit dem Cursor auf das Wort gehen und dann F1 drücken) die Begriffe einmal ansehen sollst.

Chris

[Die Muhkuh]

ja ne! Das is schon klar!

Wie wär's mitnem Beispiel code?

[Die Muhkuh]

Schon ausprobiert mit der Hilfe!

[Luckie]

Zitat:

Zitat von Spider

Wie wär's mitnem Beispiel code?

Schlecht.

Frag mit if then und den Vergleichsoperatoren ab, ob das gewünschte im Edit steht und reagier dann entsprechend.

[Sharky]

Zitat:

Zitat von Spider

....Editfeld z.b /cu eingebe und das dann das Programm geschlossen wird?
Soll natürlich nicht nur mit /cu gehen!
...

Wann soll das ganze geschehen?

Direckt bei der Eingabe? (OnChange und POS)
Nachdem z.B. Enter gedrück wurde? (OnKeyDown und POS)
Nachdem click auf einen Button? (OnClick und POS)

[Die Muhkuh]

Nach dem ich auf den Button geklickt habe!

So wie im DP chat!

[Luckie]

Meine Antwort gillt immer noch.

[Sharky]

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]

Sorry POS kenn ich net wo muss man das den einsetzen?

[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.

[CalganX]

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]

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]

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]

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]

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]

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?

[CalganX]

NEIN.

Das war ein Beispiel. Nicht direkt auf deinen Fall bezogen. Ich habe versucht dir klar zu machen, wie if funktioniert.

Chris

PS: Such dir mal ein Tutorial über Delphi (im speziellen Kontrollstrukturen) heraus. Ich denke, dass du da sehr viel erfahren bzw. lernen kannst.

[Die Muhkuh]

So es FUNTZT ENDLICH
auf Sharky's art gehts und auch so:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
const
  Zahl1 = '/cu';
  Zahl2 = '/cu';
var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Zahl1 = Zahl2 then
    begin
      close;
    end;
end;

end.

Spider!

[CalganX]

:wall:

Chris

PS: Ich sag nix mehr.

[Sharky]

Zitat:

Zitat von Spider

...

Code:

const
  Zahl1 = '/cu';
  Zahl2 = '/cu';

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Zahl1 = Zahl2 then
    begin
      close;
    end;
end;

Da könntest Du auch schreiben :

Delphi-Quellcode:

 if 1 = 1 then
  begin
   close;
  end;

Denn Du prüfst ob zwei Konstanten gleich sind. Und bei dir sind sie es per vorgabe.

[Armageddon]

Hi

Ähm ich weiß nicht genau ob es so 100%ig geht aber allemal ein kleiner Anstoß für Dich. Hoffe ich wenigstens.

Delphi-Quellcode:

if Edit1.Text = '/cu' then Form1.Close;

Ob das aber so richtig funktioniert und es zu keinem Fehler kommt weil ich ja nicht weiß wieviele Form's Du noch auf hast. Keine Ahnung wie sich das dann verhält. Mußt halt mal bisserl testen.

Gruß Arma.

[Die Muhkuh]

@Armageddon

ne das geht nicht sonst kommt ne Fehlermeldung Ausdruck muss BOOLEAN sein1

[CalganX]

Das ist jetzt wirklich seltsam. Denn rein theoretisch ist Arma's Möglichkeit vollkommen korrekt und das wollten wir dir eigentlich die ganze Zeit verklickern.

Was hast du denn da stehen?

Chris

[Die Muhkuh]

Sorry hab was verwechselt!

Geht doch!!! Hab ausversehen nur so geschrieben:

Delphi-Quellcode:

if Edit1 = '/cu' then Close;

hab .text vergessen! Peilich :oops:

Spider