if (not) exists

[Ykcim]

Hallo Zusammen,

vielen Dank für die Anregungen. Sowohl die Abfrage des RecordCount (1=Spalte vorhanden; 0=Spalte nicht vorhanden), als auf Query.EOF (False=Spalte vorhanden, True=Spalte nicht vorhanden) funktioniert.

Ich habe es jetzt mit einer vorgeschaltenen Abfrage gelöst:

Delphi-Quellcode:

procedure TDownload.ColumnDel(Query: TUniQuery; Tabelle: string; Spalte: string);
begin
   Query.SQL.Clear;
   Query.SQL.Add('Show columns from '+Tabelle+' ');
   Query.SQL.Add('where field= :Spalte ');
   Query.ParamByName('Spalte').AsString:=Spalte;
   Query.Open;
   if Query.Eof=false then
      showmessage('Spalte wird gelöscht, weil schon vorhanden');
end;

procedure TDownload.ColumnAdd(Query: TUniQuery; Tabelle: string; Spalte: string);
begin
   Query.SQL.Clear;
   Query.SQL.Add('Show columns from '+Tabelle+' ');
   Query.SQL.Add('where field= :Spalte ');
   Query.ParamByName('Spalte').AsString:=Spalte;
   Query.Open;
   if Query.Eof=true then
      showmessage('Spalte wird hinzugefügt, weil noch nicht vorhaden');

Vielen Dank
Patrick

[Furtbichler]

Zitat von vagtler:

Weil das zumindest in dem Szenario des Thread-Erstellers anscheinend eine Condition ist, die erwartet wird.

Ich verstehe deinen Einwand nicht. Er möchte eine Aktion durchführen, die schiefgehen kann.

Delphi-Quellcode:

/// Entweder so:
if DarfIchDasDenn then 
  TuEs;
// oder
Try
  TuEs;
Except
  On E:ErwarteteAusnahme Do...;
  On E:Exception Do Fehlerbehandlung(E);
End;

Möglichkeit #1 ist old-school (und nervt nicht so beim debuggen).
Möglichkeit #2 fängt alle Fehler korrekt ab und ist genau dann die richtige Wahl, wenn 'TuEs' im Kontext der Anwendung eigentlich fehlerfrei durchgeführt werden sollte.

Beispiel: Ich will eine Datei löschen.
Beispiel A: Ich habe eine Art Explorer geschrieben, der die Dateien auflistet und beim drücken der DEL-Taste soll die Datei entfernt werden: Da muss ich nicht prüfen, ob die Datei existiert, sondern kann einfach drauf los löschen, also #2.

Beispiel B: Ich möchte eine Datei erzeugen, aber nur, wenn sie noch nicht existiert. Dann nehme ich #1, weil es ja genau das ist, was ich ausdrücken will.

Edit: Hat sich eh erledigt.

[DeddyH]

Zitat von Ykcim:

Delphi-Quellcode:

   if Query.Eof=false then

...

   if Query.Eof=true then

Tu Dir selbst einen Gefallen und formulier das um:

Delphi-Quellcode:

if not Query.EOF then

...

if Query.EOF then

[Ykcim]

Zitat:

Tu Dir selbst einen Gefallen und formulier das um:
markieren
Delphi-Quellcode:

Delphi-Quellcode:

if not Query.EOF then

 ...

if Query.EOF then

Okay, mache ich. Aber erklärst Du mir kurz, warum das besser ist. Ich fand meine Schreibweise übersichtlicher, lerne aber gerne dazu.

Danke
Patrick

[DeddyH]

http://www.delphi-treff.de/tutorials...faengerfehler/ oder auch http://www.detlef-heibing.de/program...onstanten.html

[Ykcim]

Vielen Dank!
Das war sehr aufschlussreich!

Gruß Patrick