🚀 go-pugleaf

Jeżeli do pola nigdy nic nie wpisano to Delphi uwaza, ze pole ma wartosc
NULL.  Wtedy oczywiscie w twojej procedurze jest blad.
Blad w tym miejscu nie jest niestety przez Delphi sygnalizowany ale powoduje
niepoprawne dzialanie programu.

Tresc Twojej procedury powinna wygladac mniej wiecej tak:

if  VarIsNull(DataSet['NRDOK']  then
  DataSet['Temp']:= '';
else
  DataSet['Temp']:= Trim(Copy(DataSet['NRDOK'],6,10))+
                                   Trim(Copy(DataSet['NRDOK'],1,5));

Grzegorz Skoczylas

grzegorzs@rekord.com.pl

g.skoczylas@usa.net
grzegorzs@hotmail.com


Jacek M. napisał(a) w wiadomości: ...
>Witam wszystkich
>
>Mam następujący problem.
>
>Próbuję napisać program do przeglądania bazy DBF.
>W programie używam komponentów TDataSource, TTable i TDBGrid.
>Baza którą chce przeglądać posiada pole znakowe NRDOK. Dla celów wizualnych
>chciałem przedstawić to pole w innej formie niż jest to w bazie. Do tego
>celu wykorzestuje nowe pole TEMP (Table1TEMP.FieldKind:= fkCalculated) i
>funkcje
>
>procedure TForm1.Table1CalcFields(DataSet: TDataSet);
>begin
>   DataSet['Temp']:= Trim(Copy(DataSet['NRDOK'],6,10))+
>                                      Trim(Copy(DataSet['NRDOK'],1,5));
>end;
>
>Program działa poprawnie, gdy to pole jest wypełnione. Natomiast gdy w
>jednym z rekordów pole to będzie puste(niewypełnione) to program przestaje
>działać.
>
>Jacek M.
>
>PS.
>Nie wiem czy to jest dobra metoda na tego rodzaju problem.
>
>
>