Listen, Strings und Pointer

[lordod]

Hallo!

ich hab folgendes Problem:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);      //
var
  List: TList;     //delphi eigene liste :-)
  Rec: TZeiger;
  i : integer;
begin
  List:=TList.Create;
  Text := lowercase(memo1.text);
  try
    New(Rec);
    List.Add(Rec);
    Rec.Buchstabe := 'a';
    Rec.Anzahl := 0;
    for i := 98 to 122 do
    begin
      New(Rec);
      List.Add(Rec);
      Rec.Buchstabe := Chr(i);
      Rec.Anzahl := 0;
    end;
    listbox1.Items.Add(List.Items[1]);

Ich krieg in der letzten Zeile eine Fehlermedlung. Die besagt, dass strings und pointer inkompatibel sind.

Weiterhin frage ich mich wie ich eine bestimmtes Element in dieser Liste anspreche

Gruß lordod

[Aenogym]

hi und herzlich willkommen in der DP, lordod :hi:

die meldung, die du bekommst, sagt eigentlich schon alles: TListBox.Items.Add() erwartet einen string als parameter. Du übergibst allerdings einen Pointer (da TList eben Pointer verwaltet).

es kommt jetzt drauf an, welche information von TZeiger du in der Listbox anzeigen lassen willst.
wenn du beides anzeigen lassen willst, ändere die letzte Zeile in folgendes:

Delphi-Quellcode:

ListBox1.Items.Add(TZeiger(List.Items[i]).Buchstabe+': '+intToStr(TZeiger(List.Items[i]).Anzahl)+' mal');

aeno

[lordod]

Hey Aenogym,

toll, dass du mir so schnell antworten konntest.

Danke!
Gruß lordod