So, vielleicht braucht es ja noch jemand anderes, hier ist die Prozedur die ich mir geschrieben habe
Delphi-Quellcode:
function spalteempty (
query : TQuery; spalte :
string) : boolean;
begin
Result := true;
query.First;
if not (
query.FieldByName(spalte).AsString='
')
then Result := false;
repeat
begin
query.Next;
if not (
query.FieldByName(spalte).AsString='
')
then Result := false;
end;
until query.Eof;
end;
Ist die Spalte leer ist der Rückgabewert true, ansonsten false...