Prüfen ob in einer Zeile nichts mehr drin steht

[Reinhard Kern]

Zitat von HolgerCW:

Hallo zusammen,

wie kann ich am elegantesten prüfen, ob in einer Zeile keine Daten mehr enthalten sind?

Spalte 1 ist die ID und enthält immer eine Information, alle anderen Spalten sollen abgeprüft werden.

Die Spalten heissen E1, E2, E3, C1,C2,C3

Nun soll geprüft werden, ob bei ID = '1' in den oben genannten Spalten ncihts mehr drin steht.

Wie mache ich das am besten ?

Gruss

Holger

z.B. so:

Delphi-Quellcode:

function StringEmpty (s : ShortString) : bool;
var istr : string[255];
    nochar : set of char;
begin
istr := s;
nochar := [' ',chr(0),chr(9)];
while (length(istr) > 0) and (istr[1] in nochar) do delete (istr,1,1);
Result := Length (istr) = 0;
end;

RowEmpty := StringEmpty (E1.text) and StringEmpty (E2.text)...

Gruss Reinhard