Edit feld auf eingabe überprüfen?

**Headi**

Hallo leute,

Ich habe eine ganz simple frage, und zwar
habe ich ein edit feld, ich möchte jetzt prüfen ob dort irgendwas drinsteht.
Ich meine das ist ja nicht sehr schwirig, mein code:

markieren

Delphi-Quellcode:

			    If Edit1.Text='' then

    a:='keine eingabe!!';

Nur wenn jetzt jemand nur ein Leerzeichen eingibt, sollte das auch
zur meldung 'keine eingabe!!!' führen.
Natürlich könnte ich jetzt diesen code benutzen:

markieren

Delphi-Quellcode:

			If Edit1.Text='' then

    a:='keine eingabe!!';

If Edit1.Text=' ' then

    a:='keine eingabe!!';

Der überprüft mir allerdings nur ein Leerzeichen,
Ich möchte ja aber alle leerzeichen überprüfen, da es sein
kann dass der 3 leerzeichen eingibt oder so.

Wie geht das??

Achja noch ne kleine Frage:
Bei If Edit1.Text='' kann ich da irgendwie ein 'or' einsetzen dass der mir mehrere angaben überprüft??
Ich habe es auch schon mit diesem überprüft aber das geht nicht:

markieren

Delphi-Quellcode:

			 If Edit1.Text='erste angabe' or 'zweite angabe' then

a:='geht nicht';

So das wars mal
Ich hoffe ihr könnt mir helfen und ich habe euch nicht zu fest zugetexted

mfg headi

**Matze**

if StringReplace(Edit1.Text, ' ', '', [rfReplaceAll]) = '' then Das entfernt alle Leerzeichen.

Nachtrag zum 'or': Klammern setzen:

if (...) or (... ) then

**Sharky**

Hai ihr,

warum sich das leben so schwer machen? Einfach mit Delphi-Referenz durchsuchen

Trim oder

TrimLef arbeiten.

markieren

Delphi-Quellcode:

			procedure TDemoForm.btn_CheckEditClick(Sender: TObject);

begin

  if  (TrimLeft(edt_1.Text) = '') then

  begin

    ShowMessage('Fehler bei der Eingabe');

  end;

end;

**Headi**

erstmals vielen dank euch beiden,

@matze:

if StringReplace(Edit1.Text, ' ', '', [rfReplaceAll]) = '' then Kann es sein dass dieser code alle leerzeichen entfernt??
Ich möchte ja nur dass die leerzeichen entfehrnt werden falls sonst nichts im edit feld steht.
Würde dort jetzt "hallo ich bin ein Text" stehen würde der dann ja so aussehen "halloichbineinText" kann das sein oder sehe ich
das falsch?

Dann der zweite Code ist genau das was ich gesucht habe, danke!

@Sharky:

Irgendwie löst dieser code doch mein Problem mit den leerzeichen nicht??

mfg headi

**Ultimator**

@Headi:
TrimLeft entfernt alle Leerzeichen (und soweit ich weiß auch nicht-darstellbaren Zeichen) am linken Rand des Strings.
TrimLeft folgt analog

Und Trim vereint trimLeft und trimRight

**Matze**

Zitat von Headi:

Kann es sein dass dieser code alle leerzeichen entfernt?? [...]

Ja, es entfernt alle. Folglich wird es immer als leer erkannt, sobald der Inhalt nur aus Leerzeichen besteht, egal aus wie vielen. Der Text selbst wird nicht verändert. Also wenn Text drinnen steht und du liest ihm mit Edit1.Text aus, sind die Leerzeichen natürlich noch vorhanden.

**Sharky**

Zitat von Headi:

... Irgendwie löst dieser code doch mein Problem mit den leerzeichen nicht??

Warum?

TrimLeft entfernt alle Leerzeichen die links vor dem ersten Zeichen stehen.
Wenn im Edit zum Beispiel " blubb" steht ist das Ergebniss von TrimLeft = "blubb".
Wenn im Edit " " steht (ein Leerzeichen) ist das Ergebniss "". Also ein Leerstring. Und genau auf diesen wird ja geprüft.

**Headi**

Zitat von Sharky:

Zitat von Headi:

... Irgendwie löst dieser code doch mein Problem mit den leerzeichen nicht??

Warum?

TrimLeft entfernt alle Leerzeichen die links vor dem ersten Zeichen stehen.
Wenn im Edit zum Beispiel " blubb" steht ist das Ergebniss von TrimLeft = "blubb".
Wenn im Edit " " steht (ein Leerzeichen) ist das Ergebniss "". Also ein Leerstring. Und genau auf diesen wird ja geprüft.

Zitat von Ultimator:

@Headi:
TrimLeft entfernt alle Leerzeichen (und soweit ich weiß auch nicht-darstellbaren Zeichen) am linken Rand des Strings.
TrimLeft folgt analog
Und Trim vereint trimLeft und trimRight

Achso ist das, ich dachte der würde mir ALLE leerzeichen und nicht nur die links entfernen

Aber da hab ich wohl falsch gedacht.

Also vielen dank!!

mfg headi

Edit feld auf eingabe überprüfen?

Edit feld auf eingabe überprüfen?

Re: Edit feld auf eingabe überprüfen?

Re: Edit feld auf eingabe überprüfen?

Re: Edit feld auf eingabe überprüfen?

Re: Edit feld auf eingabe überprüfen?

Re: Edit feld auf eingabe überprüfen?

Re: Edit feld auf eingabe überprüfen?

Re: Edit feld auf eingabe überprüfen?

Forumregeln

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#2 Re: Edit feld auf eingabe überprüfen? 27. Nov 2005, 14:06 if StringReplace(Edit1.Text, ' ', '', [rfReplaceAll]) = '' then Das entfernt alle Leerzeichen. Nachtrag zum 'or': Klammern setzen: if (...) or (... ) then
	Zitat

Sharky Registriert seit: 29. Mai 2002 Ort: Frankfurt 8.251 Beiträge Delphi 2006 Professional	#3 Re: Edit feld auf eingabe überprüfen? 27. Nov 2005, 14:39 Hai ihr, warum sich das leben so schwer machen? Einfach mit Trim oder TrimLef arbeiten. markieren Delphi-Quellcode: procedure TDemoForm.btn_CheckEditClick(Sender: TObject); begin if (TrimLeft(edt_1.Text) = '') then begin ShowMessage('Fehler bei der Eingabe'); end; end; Stephan B. "Lasst den Gänsen ihre Füßchen"
	Zitat

Ultimator Registriert seit: 17. Feb 2004 Ort: Coburg 1.860 Beiträge FreePascal / Lazarus	#5 Re: Edit feld auf eingabe überprüfen? 27. Nov 2005, 16:48 @Headi: TrimLeft entfernt alle Leerzeichen (und soweit ich weiß auch nicht-darstellbaren Zeichen) am linken Rand des Strings. TrimLeft folgt analog Und Trim vereint trimLeft und trimRight Julian J. Pracht
	Zitat