storing string

[Wesbat]

Here is a slightly cleaner way without resorting to StrNew()/StrDispose():

Code: Pascal  [Select][+][-]

1. var tag: Pointer;
2. tag := nil;
3. string(tag) := 'yourstringhere';
4. TButton.Tag := PtrInt(tag);

Code: Pascal  [Select][+][-]

1. var tag: Pointer;
2. tag := Pointer(TButton.Tag);
3. Somestring := string(tag);
4. ...
5. string(tag) := '';

As someone who is still learning, I find this example very instructive into how Pointers operate. Thanks for sharing.