String in Listview Data ?

[Blamaster]

Hi, Danke für die ausführliche Erklärung.

Aber was ist nun für mich der ja wirklich nur einen String im Datafeld hinterlegen will am besten zu nutzen ?

Bisher war ja egal bei welcher Variante immer das Problem, dass nur Datenmüll rauskam.

Mfg Yannic

[hoika]

Hallo,

TStringList ...

Zu deiner Meinung, dass es schwer zu benutzen ist.

In einer ListView zeige ich Daten aus einer Liste an.
Die Liste besteht bei mir meistens eh schon im Quelltext ...


Heiko

[SirThornberry]

Also Beispiel nehmen wir mal einen Integer

Delphi-Quellcode:

var
  meinInt: Integer;
  item: TListItem; 
begin
  meinInt := 5;
  item := Listview.Items.Add; 
  item.Caption := 'Irgendwas';
  item.Data := @meinInt;
end;

würdest du hier erwarten das nach zurückkehren der Funktion Data noch auf einen gültigen Wert zeigt obwohl meinInt eine lokale Variable ist die ihre Gültigkeit mit Verlassen der Funktion verliert?

Bei einem String ist es nicht anders. Wenn man will das Speicher bei Verlassen der Funktion nicht frei gegeben wird muss man dafür sorgen das er nicht im Gültigkeitsbereich der Funktion liegt. Man kann also entweder eine globale Variable nehmen oder dynamisch Speicher anfordern.

Delphi-Quellcode:

var
  meinInt: ^Integer;
  item: TListItem; 
begin
  new(meinInt);
  meinInt^ := 5;
  item := Listview.Items.Add; 
  item.Caption := 'Irgendwas';
  item.Data := meinInt;
end;

Vergessen sollte man auf keinen Fall, dass Speicher den man selbst anfordert auch selbst wieder frei geben sollte. Bevor du also dein Item löschst solltest du auch den Speicher worauf item.Data zeigt wieder freigeben.

Delphi-Quellcode:

var
  meinInt: ^Integer;
  item: TListItem;
begin
  [...]
  meinInt := item.Data;
  dispose(meinInt);

[Edit]doppeltes Wort entfernt und Komma anders gesetzt[/Edit]

[Björn Ole]

Ich mach das mit Strings so:

Delphi-Quellcode:

// hineinschreiben
var
  p: PChar; 

p := StrAlloc(Length(myStr));
StrCopy(p, PChar(myStr));
AItem.Data := p;

// im OnDestroy des Formulars gehe ich alle Items durch
// und lösche deren Data-Strings
for i := 0 to ListView.Items.Count - 1 do
  StrDispose(PChar(ListView.Items[i].Data));

Ist daran etwas auszusetzen?

[SirThornberry]

Naja, PChar hat keine Längenangabe und daher wird #0 meist als Ende interpretiert. Das kann man umgehen indem man anstelle von PChar einfach ^String verwendet. Somit kann man durch dereferenzieren auch die Compilermagic etc. nutzen und hat keine Probleme wenn einmal #0 vorkommt (gerade bei UTF8, Unicode etc. sehr sinnvoll)
Dein Beispiel würde dann also so aussehen:

Delphi-Quellcode:

var 
  p: ^String; 

new(p);
p^ := myStr;
AItem.Data := p;
[...]

Somit kann man alles (abgesehen vom notwendigen dereferenzieren) wie gewohnt machen und muss nicht plötzlich auf Funktionen wie StrCopy zurück greifen welche genannte Nachteile haben. Das kopieren durch direkt Zuweisung könnte damit durchaus sogar schneller sein weil ein normaler String eine Längenangabe besitzt wo hingegen bei PChar erst nach der abschließenden #0 gesucht wird um zu wissen wie groß die zu kopierenden Daten sind.

[Blamaster]

Hi,

Nachdem SirThornberrys Vorschlag so auch nicht wirklich funktionieren wollte, (ich denke mal der Sehler war das ich dann immernoch mit string(Item.Data) auslesen wollte ?), habe ich nun einfach ein eigenes Objekt erstellt.

Dies kann ich nun endlich so handeln wie ich es auch von der Progressbar gewohnt war.

Delphi-Quellcode:

var
 TestObject: TTestObject;
 item: TListItem;
 i: integer;
begin
 
 for i := 0 to 10 do
 begin
  item := ListView.Items.Add;
  item.Caption := 'Eintrag Nr. ' + IntToStr(i);
  TestObject := TTestObject.Create;
  TestObject.String := 'String im Data des Item: ' + IntToStr(i);
  item.Data := TestObject; 
 end;
  
end;

und das auslesen dann einfach über:

Delphi-Quellcode:

var
 MeinString: String
begin
 MeinString := TTestObject(ListView.Items.Item[i].Data).String;
 ShowMessage(MeinString);
end;

Funktioniert jetzt soweit auch alles super und hat sogar den Vorteil das ich um einiges flexibler bin.

Danke für all die Hilfe

Mfg Yannic

[Neutral General]

Aber nicht vergessen das Objekt wieder freizugeben!

[himitsu]

Mit einem eigenem Constructor dürfte wohl auch sowas gehn.
item.Data := TTestObject.Create('String im Data des Item: ' + IntToStr(i));

[Blamaster]

Hi,

zum freigeben habe ich nochmal eine Frage.

Muss ich das während der Laufzeit bei jedem Löschvorgang direkt machen, oder gibt es eine Möglichkeit beim beenden des Programms automatisch alle erstellten TTestObjecte freizugeben ?

Mfg Yannic

[himitsu]

In OnDeletion würde ich einfach alle diese Klassen freigeben, also jeweils die Klasse des Items, welches grade manuel oder automatisch gelöscht wird.