Einzelnen Beitrag anzeigen

thomasschaf
(Gast)

n/a Beiträge
 
#1

Pointer zu String

  Alt 2. Apr 2012, 16:47
Hallo,

ich möchte ListView1.Selected.Data als String ausgeben.
Die Länge ist in ListView1.Selected.SubItems[3] zu finden.

Leider funktionieren diese nicht:

Delphi-Quellcode:
// gibt Access violation
procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: boolean);
var
  str: string;
  len: integer;
begin
  len := StrToInt(ListView1.Selected.SubItems[3]);

  SetLength(str, len);
  Move(ListView1.Selected.Data, Pointer(str), len);

  Memo1.Text := str;
end;
Delphi-Quellcode:
// nur der erste Buchstabe erscheint
procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: boolean);
var
  str: string;
  len: integer;
begin
  len := StrToInt(ListView1.Selected.SubItems[3]);

  SetLength(str, len);
  Move(ListView1.Selected.Data^, str[1], len);

  Memo1.Text := str;
end;
Vielen Dank
  Mit Zitat antworten Zitat