Телеграмм чат группы Delphi

{$IFDEF LINUX}
  if FileExists('/home/' + GetEnvironmentVariable('USER') + '/.file') then
{$IFDEF WINDOWS}
  if FileExists(GetEnvironmentVariable('AppData') + '\.file') then

Но присоединюсь к Вам-особых проблем пока не встречал с кросс компиляцией.

источник

06:33пожаловаться #6

zamtmn in Delphi & Lazarus

есть чтото типа getconfigpath емнип

источник

06:34пожаловаться #7

СП

Сергей Пятыгин... in Delphi & Lazarus

zamtmn

есть чтото типа getconfigpath емнип

А зачем?

источник

06:35пожаловаться #8

zamtmn in Delphi & Lazarus

Function GetTempDir(Global : Boolean) : String;
Function GetTempDir : String;
Function GetTempFileName(Const Dir,Prefix : String) : String;

Function GetTempFileName : String;
{ For windows compatibility }
function GetTempFileName(Dir,Prefix: PChar; uUnique: DWORD; TempFileName: PChar):DWORD;
Function GetAppConfigDir(Global : Boolean) : String;
Function GetAppConfigFile(Global : Boolean) : String;
Function GetAppConfigFile(Global : Boolean; SubDir : Boolean) : String;
Function GetUserDir : String;

источник

06:38пожаловаться #9

zamtmn in Delphi & Lazarus

GetAppConfigDir или GetAppConfigFile чем ваши ифдефы

источник

06:39пожаловаться #10

Tony An in Delphi & Lazarus

Не могу понять, как получать имена из перечислений

Type
TEn = (One, Two);
TDay = (Mon, Tue);

function EnumToString(TT:TValue): string; //TValue или вообще не оно?
begin
Result := TrttiEnumerationType.GetName<?>(?); //Непонятно , что здесь
end;

procedure myProc;
var
s1,s2: string;
begin
s1 := EnumToString(TEn.One); //Низя
s2 := EnumToString(TDay.Mon); //Низя
end;

😋 Это вообще возможно универсально?

источник

07:05пожаловаться #11

Alexey Kulakov in Delphi & Lazarus

а через WriteStr если?

источник

07:08пожаловаться #12

Tony An in Delphi & Lazarus

Пока не могу найти реализацию

источник

07:16пожаловаться #13

Tony An in Delphi & Lazarus

А в каком Юните она объявлена?