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