Forum: Sonstige Fragen zu Delphi
Delphi
by Ati,
3. Jan 2006
Das habe ich ja als erstes versucht. Nur vermute ich das die Pünktchen als Eingabe gewertet werden.
Aus Deiner Antwort schliesse ich aber das Du mit meiner aktuellen Lösung "zufrieden" bist.
Ati
Forum: Sonstige Fragen zu Delphi
Delphi
by Ati,
3. Jan 2006
Hai Sharky,
nicht das Du denkst ich habe Deinen Tip unter dem Tisch fallen lassen. Hier mal meine Prüffunktion für das Datumsfeld:
function DateEditTest( const aDateEdit : TDateEdit): Boolean;
var dat:Tdate;
begin
result:=true;
try
dat:= strtodate(aDateEdit.Text);
except
Forum: Sonstige Fragen zu Delphi
Delphi
by Ati,
22. Dez 2005
Wenn ich mit der Post-Methode arbeite meckert er das die Datenmenge sich nicht im Editier bzw Einfügemodus befinden.
Forum: Sonstige Fragen zu Delphi
Delphi
by Ati,
22. Dez 2005
Wie Du ja vor kurzem mitbekommen hast bin ich gerade am Anfang bezüglich der Datenbankprogrammierung unter Delphi. Daher kann ich so gewisse Sachen noch nicht ganz miteinander in Beziehung bringen. Auch auf die Gefahr hin das sich hier einige gleich ausschütten werden vor Lachen anbei mal mein gesamter Quelltext.
public
procedure clear;
{ Public-Deklarationen }
end;
var
...
Forum: Sonstige Fragen zu Delphi
Delphi
by Ati,
21. Dez 2005
Stimmt hatte ich übersehen. Jetzt meckert er Dein "break" an
Forum: Sonstige Fragen zu Delphi
Delphi
by Ati,
21. Dez 2005
Man Man Man. Klar hatte ich das vergessen. Und tmpComponent := Components; hatte ich auch nicht eingetragen.
Aber jetzt nimmt er wieder alle Eingaben auch die leeren!!!!!!!
Forum: Sonstige Fragen zu Delphi
Delphi
by Ati,
21. Dez 2005
Irgendeinen kleinen Fehler habe ich noch. Hier nochmal die Funktionen und die Procedure:
function ComboTest(const acombo : TCombobox): boolean;
begin
result := Length (acombo.Text) > 0;
end;
function DateEditTest( const aDateEdit : TDateEdit): Boolean;
begin
result := Length (aDateEdit.Text) >0; // Ein Passender Code
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by Ati,
21. Dez 2005
Kann mir jemand helfen wie ich diesen Code den Umbauen muß.
Ich habe 5 xTMaskEdit, 2xTDateEdit und eine TCombobox.
Forum: Sonstige Fragen zu Delphi
Delphi
by Ati,
21. Dez 2005
HAAAAAAAAllllllllllllllllltttt Stoooopppp
Bevor ihr euch jetzt Gedanken macht!!! Ich habe nur 1 wirkliches TEdit-Feld.
Die anderen sind entweder TMaskEdit oder TDateEdit.
Mein Gott ist mir das peinlich.
Forum: Sonstige Fragen zu Delphi
Delphi
by Ati,
21. Dez 2005
@dahead :wink: Nein :wink:
@Andreas hoffentlich versteh ich Deine Aussage jetzt nicht falsch. Du beziehst Dich wohl darauf das ich hinten mit einer =0 arbeite und nicht <>1. Aber beides hat nicht funktioniert
Forum: Sonstige Fragen zu Delphi
Delphi
by Ati,
21. Dez 2005
Ach so. Sorry. Habe ich jetzt mal so eingebaut, jedoch ist die überprüfungsfunktion damit ausgehebelt. Habe mal nur das erste Edit-Feld eingetragen und er hat den DS trotzdem ohne meckern gespeichert!!
Hier mla mein aktueller Code
a := 1;
for i := 0 to Form1.ComponentCount -1 do
begin
if (Form1.Components is TEdit) and (Form1.Components.Tag = 0) then
a := a *...
Forum: Sonstige Fragen zu Delphi
Delphi
by Ati,
21. Dez 2005
@dahead den ersten Teil habe ich noch nicht ganz verstanden. Das mit Tag=1 funktioniert so ohne weiteres nicht.
Forum: Sonstige Fragen zu Delphi
Delphi
by Ati,
21. Dez 2005
Danke Andreas. Dein Code funktioniert schon zu gut. Ein Problem gibt es da aber noch. Das letzte Edit-Feld ist optional. D.h. es muß nicht ausgefüllt werden. Wie kann ich das einbauen??
Ati
Forum: Sonstige Fragen zu Delphi
Delphi
by Ati,
21. Dez 2005
Mahlzeit,
auch zu diesem Thema habe ich einiges gefunden und auch etliches schon ausprobiert, jedoch funktioniert nichts so wie ich es gerne hätte. Ziel ist es in meiner Anwendung alle Edit-Felder auf Eingaben zu prüfen. Es gibt insgesamt 9 Felder, wovon 8 quasi Pflichtfelder sind. Ich habe es schon mit verschachtelten IF-Then-Abfragen versucht jedoch geht das nur beim ersten Feld. Ist das...