Listbox - Addobject

[Alexander]

Hallo Leute,
Ich habe ein kleines Problem, mit AddObject und zwar komme ich später nicht mehr an die Werte ran, die ich mit AddObject übergeben habe
Ich habe das so probiert:

Delphi-Quellcode:

procedure TMainForm.Button1Click(Sender: TObject);
var
  s : String;
begin
  EDIT_ToDo.ItemIndex := EDIT_ToDo.Items.AddObject('test', Pointer(fsStrikeOut));
  s := String(EDIT_ToDo.Items.Objects[EDIT_ToDo.ItemIndex]);
end;

Doch leider kommt es immer zu einer AV.
Könnt ihr mir mal kurz helfen?
PS: Freigegeben oder so habe ich das Object auch nicht...

[Jens Schumann]

Hallo,
versuch es mal so:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
    FTest : String;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.AddObject('Test',@FTest);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FTest:='Dies ist ein Test';
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  S : Pointer;
begin
  S:=ListBox1.Items.Objects[ListBox1.ItemIndex];
  Label1.Caption:=String(S^);
end;

end.

[Alexander]

Danke

[API]

Label1.Caption:=String(S^); Das löst bei mir eine AV aus. Wie müsste man das in XE7 umsetzen?

[baumina]

Delphi-Quellcode:

  ListBox1.AddItem('test', TObject(PChar(S)));
  Label1.Caption:=PChar(ListBox1.Items.Objects[ListBox1.ItemIndex]);

[API]

Danke baumina!