Hallo,

also ich habe folgendes Problem :

Wenn ich z.b. einige Edit-Felder habe, indem ich Kundendaten eingeben möchte (Name, Vorname, Firma usw.) und nur,wenn überall etaws drinsteht, (Inhalt erstmal egal) dann soll es abgespeichert werden. Wie mach ich das jetzt mit IF ?


z.b. ich habe 10 Edit-Felder

Edit1, 2, 3, 4, 5, 6, 7, 8, 9, 10

wenn in allen was steht OK, sobald in einem Feld nicht steht Meldung das etwas nicht ausgefüllt ist.




... danke im Voraus

Versuche es doch mal so:

markieren

Delphi-Quellcode:

if (Length (Trim (Edit1.Text)) + Length (Trim (Edit2.Text)) + ...) > 0
then ...

Dann heißt das aber auch nur, dass 1 von den zweien ungleich null sein muss. Wenn im ersten nix steht (0) und im zweiten "Haus" (4) dann kommt immer noch was größer als 0 raus.

Ich würde das so machen:

markieren

Delphi-Quellcode:

begin
IF (length(Edit1.Text)) AND (length(Edit2.Text)) AND (length(Edit3.Text)) > 0
  THEN
   ShowMessage('Alle Felder wurde ausgefüllt')
  ELSE
   ShowMessage('Es wurden nicht alle Felder ausgefüllt');
end;

Zitat von Stanlay Hanks:

Dann heißt das aber auch nur, dass 1 von den zweien ungleich null sein muss.

Stimmt. Asche auf mein Haupt Deine Lösung ist natürlich die richtige.

Moin Zusammen,

ich würde mal sagen, dass man eure Lösungen noch mischen muss

1. die Verwendung von trim von Rainer, damit Blanks nicht als ausgefüllt gelten
2. die Verwendung von and von Stanlay, damit auch alle ausgefüllt sind

Das mit dem Trim hab ich jetz direkt überlesen.
Wobei ich sagen muss, dass ich das gar nich wusste, was Trim is. Hab das aber jetz in der OH nachgeholt.

Man liest sich, Stanlay

Hallo,

funktioniert

danke !