Prüfung auf Assigned(MyObject) true obwohl MyObject nicht initialisiert wurde

[haentschman]

Hallöle...

Besser...

Delphi-Quellcode:

procedure TfMain.Button1Click(Sender: TObject);
var
  In_A: string;
  slShow: TStringList;
begin
  In_A := '';

  slShow := TStringList.Create; 
  try
    if In_A = '' then
      exit;
     
  finally
    slShow.Free;
  end;
end;

oder

Delphi-Quellcode:

procedure TfMain.Button1Click(Sender: TObject);
var
  In_A: string;
  slShow: TStringList;
begin
  In_A := '';

  if In_A = '' then
  begin
    exit;
  end
  else
  begin
    slShow := TStringList.Create;
    try
      // deins     
    finally
      slShow.Free;
    end;
  end;
end;

oder

Delphi-Quellcode:

procedure TfMain.Button1Click(Sender: TObject);
var
  In_A: string;
  slShow: TStringList;
begin
  In_A := '';

  if not (In_A = '') then
  begin
    slShow := TStringList.Create;
    try
      // deins     
    finally
      slShow.Free;
    end;
  end;
end;