[Lazarus] Safe temp file name

Rik van Kekem rik at graficalc.nl
Wed Nov 25 16:10:41 CET 2015


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)




More information about the Lazarus mailing list