Forum: Object-Pascal / Delphi-Language
Delphi
by Martin K,
4. Mai 2006
Na gut, überzeugt.
Trotzdem deaktiviere ich aus Prinzip keine Warnmeldungen:
Wenn sie da ist, dann ist sie nunmal da und hat auch irgendwo einen Sinn.
Forum: Object-Pascal / Delphi-Language
Delphi
by Martin K,
4. Mai 2006
Wie ich Meldungen auf diese Art ausschalten kann, dass weiß ich schon.
Aber das ist ja eigentlich nicht die feine Art, da könnte ich ja gleich {$WARNINGS OFF} um meinen ganzen Code schreiben.
Das ist ja wie, wenn ich eine Prozedur mit Exit; abbreche oder mit Application.Terminate; beende.
Alles halt nicht die feine Art :wink:
Forum: Object-Pascal / Delphi-Language
Delphi
by Martin K,
3. Mai 2006
Ja, das denk ich auch.
Also so:
procedure TForm1.Button1Click(Sender: TObject);
var i: integer; Obj: TObject;
begin
Obj := nil; //<-- hier hinzugefügt
for i:=0 to Memo1.Lines.Count-1 do
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by Martin K,
3. Mai 2006
Okay, der Compiler berücksichtigt das Continue nicht.
Das war's.
Aber zu einem Fehler kann es beim Ausführen dieses Codes nicht kommen ?!?
@himitsu:
Du meinst wohl:
{...}
Obj := nil; // nicht self
Forum: Object-Pascal / Delphi-Language
Delphi
by Martin K,
3. Mai 2006
Aber ich komme doch gar nicht in die IF-Anweisung, wenn Obj nicht initialisiert ist:
{..}
else
Continue; // nicht initialisiert, aber ich komme dann auch nicht in die IF-Anweisung
if IsPublishedProp(Obj,'Font') then
{..}
Oder?
Forum: Object-Pascal / Delphi-Language
Delphi
by Martin K,
3. Mai 2006
Ich verstehe es nicht, es kommt zu folgender Warnmeldung:
Dieser Code (vereinfacht):
procedure TForm1.Button1Click(Sender: TObject);
var i: integer; Obj: TObject;
begin
for i:=0 to Memo1.Lines.Count-1 do
begin