Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi Prüfen ob in einer Zeile nichts mehr drin steht (https://www.delphipraxis.net/100603-pruefen-ob-einer-zeile-nichts-mehr-drin-steht.html)

HolgerCW 1. Okt 2007 12:45

Datenbank: ORACLE • Version: 9 • Zugriff über: BDE

Prüfen ob in einer Zeile nichts mehr drin steht
 
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

Reinhard Kern 1. Okt 2007 12:58

Re: Prüfen ob in einer Zeile nichts mehr drin steht
 
Zitat:

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

HolgerCW 1. Okt 2007 15:38

Re: Prüfen ob in einer Zeile nichts mehr drin steht
 
Ich habe aber so ca. 30 Spalten und müsste diese ja alle vorher auslesen und dann an die Funktion übergeben ?

Geht das nicht komfortabler ?

Gruss

Holger

shmia 1. Okt 2007 17:38

Re: Prüfen ob in einer Zeile nichts mehr drin steht
 
Zitat:

Zitat von HolgerCW
Die Spalten heissen E1, E2, E3, C1,C2,C3

Oh-Ooooh (<-Teletubbies), das sieht so aus, als ob deine Datenbankstruktur nicht normalisiert ist.
siehe: http://de.wikipedia.org/wiki/Normali...28Datenbank%29
Und jetzt versuchst diesen Mangel auszugleichen.

Reinhard Kern 1. Okt 2007 17:58

Re: Prüfen ob in einer Zeile nichts mehr drin steht
 
Zitat:

Zitat von HolgerCW
Ich habe aber so ca. 30 Spalten und müsste diese ja alle vorher auslesen und dann an die Funktion übergeben ?

Geht das nicht komfortabler ?

Gruss

Holger

an diese Funktion oder an eine andere - du kannst nun mal den Inhalt einer Datenbank nicht bestimmen ohne ihn zu lesen. Röntgen geht nicht. Du kannst allenfalls die Frage in die Datenbank verlagern - z.B. ein Feld einrichten, das anzeigt, ob alle anderen Felder leer sind, aber das muss ja auch gepflegt werden. Auch wenn die Datenbank "nicht definiert" o.ä. als Zustand kennt, musst du trotzdem die 30 Felder abfragen.

Gruss Reinhard


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:46 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz