Einzelnen Beitrag anzeigen

Rolf Frei

Registriert seit: 19. Jun 2006
646 Beiträge
 
Delphi 11 Alexandria
 
#14

AW: TStringList - Zugriff auf property

  Alt 2. Jul 2018, 15:46
Kann mich den Vorrednern nur anschliessen. Habe folgendes in XE3 kopmpiliert und da läuft alles wie es soll.

Code:
procedure TForm1.FormCreate(Sender: TObject);
var
  SL_SUB: TStringList;
  Anzahl: Integer;
  I: Integer;
begin
 {$O-}
  Anzahl := 10;

  SL_SUB := TStringList.Create;
 
  for I := 0 to Anzahl do
  begin
    SL_SUB.Add(IntToStr(I));
  end;

  ShowMessage(SL_SUB.Strings[0]);  // In der Watchlist wird mir hier der korrekte Wert '1' angeziegt

  SL_SUB.Clear;  

  SL_SUB.Free;
end;

Allerdings solltest du solche Codekonstrukte immer in einen Try/Finally Block packen. Also so:
Code:
procedure TForm1.FormCreate(Sender: TObject);
var
  SL_SUB: TStringList;
  Anzahl: Integer;
  I: Integer;
begin
 {$O-}
  Anzahl := 10;

  SL_SUB := TStringList.Create;
  try

    for I := 0 to Anzahl do
    begin
      SL_SUB.Add(IntToStr(I));
    end;

    ShowMessage(SL_SUB.Strings[0]);

    SL_SUB.Clear;

  finally
    SL_SUB.Free;
  end;
end;
  Mit Zitat antworten Zitat