Thema: Delphi TField "Sperren"?

Einzelnen Beitrag anzeigen

Angel4585

Registriert seit: 4. Okt 2005
Ort: i.d.N.v. Freiburg im Breisgau
2.199 Beiträge
 
Delphi 2010 Professional
 
#8

Re: TField "Sperren"?

  Alt 14. Dez 2005, 13:43
Hmm... mein Prob ist mom noch das die Tabelle in einem Thread ist und ich die ereignisse zur Laufzeit zuwesen muss.. ist normalerweise kein Problem aber irgendwie funzt das nicht richtig:
Delphi-Quellcode:
.
.
TDataSet(FTable).AfterOpen:=FTableAfterOpen;
.
.
procedure TWVThread.OnDatumGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
if Sender.DataSet.FieldByName('WV_Wochentag').AsString = 'Unbestimmtthen
  Text:=''
else Text:= Sender.AsString;
end;
{******************************************************************************}
procedure TWVThread.OnUhrzeitGetText(Sender: TField; var Text: string;
    DisplayText: Boolean);
begin
if Sender.AsString = '23:59:59then
 Text:=''
else Text:= Sender.AsString;
end;
{******************************************************************************}
procedure TWVThread.FTableAfterOpen(DataSet: TDataSet);
begin
FTable.FieldByName('WV_Datum').OnGetText:=OnDatumGetText;
FTable.FieldByName('WV_Uhrzeit').OnGetText:=OnUhrzeitGetText;
end;
Weis jemand wo da mein Fehler ist?
Martin Weber
Ich bin ein Rüsselmops
  Mit Zitat antworten Zitat