Mengganti Folder Separator di Lazarus Linux dan Lazarus Windows

Seringkali saat membuat program yang sengaja dibuat lintas platform ada kendala terutama saat akan membaca pemisah folder.

Pada platform Windows pemisah folder nya menggunakan '\\' (double slash) sedangkan pada linux menggunakan '/' (backslash).

Pada Delphi tidak ada fasilitas untuk secara otomatis merubah folder separator tersebut sehingga harus diberi perintah IF saat membaca platform.

Pada Lazarus sudah ada procedure DoDirSeparators yang merupakan ancestor dari Unit SysUtils.

contoh kode :

var
   namafile : string;
begin
   namafile := ExtractFilePath(ParamStr(0)+'\'+ApplicationName;
   DoDirSeparator(namafile);
   ShowMessage(namafile);
end;

Untuk ExtractFilePath di Lazarus cek di postingan sebelumnya disini

Share on Google Plus

About Unknown

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.