Re: [Lazarus] Safe temp file name

[Rik van Kekem]

Rik van Kekem wrote:

(I'm not sure if FPC 2.6.4 also some helpers for creating GUIDs)

This will work in FPC 2.6.4:

var
  GUID : TGUID;
begin
  if CreateGUID(GUID) = 0 then
  begin
    MyFileName := GuiDToString(Guid);
  end;

You could strip the {, } and - if you want.

Grtz,
Rik (rvk)

--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus