If Then Problem

[STS301]

Hallo

Habe ein Problem

ich bin gerade (immer noch) beim Löschprogramm, und das "then begin" stellt mir ein unerklährliches Problem in den weg.

siehe Screenshot (Fotomontage, merkt man an der uhr )
sry, es bezieht sich aber nicht darauf dass ich zwei Mal

if edit1.text:='' and edit1.text:='' geschrieben habe

[turboPASCAL]

Zitat von STS301:

Hallo

...

if edit1.text:='' and edit1.text:=''

if (edit1.text = '') and (edit1.text = '') then ...

[RavenIV]

Da sind gleich zwei (eigentlich drei oder vier oder fünf) Fehler drin versteckt.

a)
es heisst nicht
if a := 3 then ...
sondern
if a = 3 then
<Doppelpunkt><Gleich> ist eine Zuweisung
<Gleich> ist ein Vergleich.

b)
wenn mehrere Konditionen angegeben werden mit AND oder OR, dann muss jede Kondition geklammert werden
if (a = 3) and (b = 4) then ...

c)
Und ein Style-Guide Fehler ist auch noch dabei.
- das then gehört in die gleiche Zeile wie das if
- das begin kommt in eine neue Zeile und wird eingerückt.

d)
Man prüft nie eine boolsche Variable auf True ab.
Anstelle von
if XY.Checked = True then ...
schreibt man
if XY.Checked then ...

e)
Wenn Dich der Rückgabewert der Funktion DeleteFile nicht interessiert, dann lass das if komplett weg.

[STS301]

gut danke ihr beiden
habe jetzt nur noch ein Problem mit einer Fehlermeldung die ich ausblenden will.

@RavenIV:

Wie meinst du das mit dem Rückgabewert (e)

[Luckie]

Zitat von STS301:

habe jetzt nur noch ein Problem mit einer Fehlermeldung die ich ausblenden will.

Dann lass den else-Zweig mit der Fehlermeldung weg.

[Klaus01]

Guten Abend,

alles in try -except einpacken.

Delphi-Quellcode:

try
  deleteFile(...)
except on E:Exception do
 begin
 end;
end;

Grüße
Klaus

[Luckie]

DeleteFile ist eine API-Funktion, sie wirft keine Exception. Die müsste man schon selber werfen.

[STS301]

ich stehe auf der Leitung, wie soll man es werfen??

mit dem Weglassen funktioniert es auch nicht, das heißt er zeigt die Meldung immer noch an

[Muetze1]

Zitat von Luckie:

DeleteFile ist eine API-Funktion, sie wirft keine Exception. Die müsste man schon selber werfen.

Erst genau hinschauen und dann sowas behaupten. Er übergibt Edit1.Text direkt an DeleteFile(), also ohne PChar Konvertierung. Somit muss diese Funktion AnsiString akzeptieren und das tut definitiv keine WinAPI Funktion. Danach ein Blick in die Hilfe offenbart uns dann, dass die VCL diese Funktion entpsrechend kapselt und dort steht am Ende ein RaiseLastOSError drin. Also alles zurück nehmen und abnicken bitte

/EDIT: RaiseLastOSError anscheinend nicht in allen Delphi Versionen!

[Luckie]

Ich sehe gerade, die Fehlermeldung ist gar nicht von dir. Ich nehme mal an sie kommt von Windows (Wenn du ein englisches Windows hast.) Um was für Dateien handelt es sich? Hast du die nötigen Rechte? Existieren die Dateien?

PS: Man kann den Code auch hier reinkopieren und mit Delphi-Tags sogar mit Code-Hervorhebung.