Delphi Forum

skalkan

function GenerateKey: String; // 36 karekter dönecek
var
MyGUID: TGUID;
MyWideChar: array[0..100] of WideChar;
begin
{First, generate the GUID:}
CoCreateGUID(MyGUID);
{Now convert it to a wide-character string:}
StringFromGUID2(MyGUID, MyWideChar, 39);//uzunluğu 39 karakter yap
{Now convert ...

skalkan

Sayın fesiharslan,

Ajanda çalışması kodlarını paylaşırmısınız?

skalkan

//System.RegularExpressions
function ExtractNumbers(const s: string): string;
var
regex: TRegEx;
begin
Result := '';
Result := TRegEx.Replace(s, '\D', '')
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := ExtractNumbers('ABC1000000');
//Sonuc 1000000
end;

procedure ...

skalkan

Kod: Tümünü seç

function SadeceRakamlar(s: string): string;
var
  i: integer;
  rsp: string;
begin
  Result := s;
  if Length(s) < 1 then Exit;
  rsp := '';
  for i := 1 to Length(s) do
  begin
    if s[i] in ['0'..'9'] then
      rsp := rsp + s[i];
  end;
  Result := rsp;
end;

skalkan

DataSet olarak veri alamaz iseniz, bu işlem ile bilgileri alabilirsiniz.

procedure Tmain_frm.<View>CellClick(
Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo;
AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
var
IdValue:Variant;
begin

if ...

skalkan

Şu an projelerimde kullanıyorum. Sql sorgusu ne kadar basit ise hız 100.000 kayıt da mili saniye diyebilirim(Server yoğunluğu ve hızı önemli).

skalkan

Yada bu şekilde bağlanabilirsiniz.

unit uMain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
dxServerModeUniDACDataSource, dxServerModeSQLAdapters, DBAccess, cxGraphics, cxControls,
cxLookAndFeels, cxLookAndFeelPainters, cxStyles, cxCustomData ...

skalkan

UniDac server Mode Component

DevExpressUnidacServer.rar: (20.97 KiB) 232 kere indirildi

skalkan

function IsObjectActive(ClassName: string): Boolean;
var
ClassID: TCLSID;
Unknown: IUnknown;
begin
try
ClassID := ProgIDToClassID(ClassName);
//Result := GetActiveObject(ClassID, nil, Unknown) = S_OK;
Result :=CLSIDFromProgID(PWideChar(WideString(ClassName)), ClassID) = S_OK
except ...

skalkan

Mobil mail gönderme için "could not load ssl library" hatası aşağıda so dosyalarını Android->debug yada Android->relase ye koy
libssl.so,libcrypto.so

Ek: https://mega.nz/#!4VUSSDyb!GPwL15g4P4rk ... MHCzs8hge8

skalkan

mail gönderme için "could not load ssl library" hatası veriyor ise exe ile aynı yere aşağıdaki dll leri koymanız sorununuzu çözecektir.
libeay32.dll,ssleay32.dll

skalkan

Kod: Tümünü seç

case deger of
 0:begin
//yapılacak işlem
end; 
 1:begin
//yapılacak işlem
end;
 2:begin
//yapılacak işlem
end;
else
//default değer
end;

skalkan

procedure Tinvoiceoutedit_frm.contentGridTableViewCellClick(
Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo;
AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
var
VIndex:Integer;
VPMoveid:string;
begin
VIndex:= ACellViewInfo.GridRecord.Index ...

skalkan

Project->Options->Applications

Manifest Files
Auto Generate (Seçilecek)
Enable Administrator Privileges (Seçilecek)

OK

Otomatik olarak manifest dosyası oluşturulacak.

skalkan

XE10 nu yönetici olarak çalıştır. Hata izinsiz dosya yazma yada oluşturrmadan kaynaklanıyor.

Delphi Forum

19 uygun sonuç bulundu

Re: Fatura Hareketlerinde Fatura ID'si

Re: Devexpress cxScheduler ile Ajanda / Günlük / Etkinlik Görünümleri Oluşturmak

Re: iki alfanümerik arası sorgu yapma

Re: iki alfanümerik arası sorgu yapma

Re: Devexpress cxGrid Server Mod konusunda tecrübesi olan var mı?

Re: Devexpress cxGrid Server Mod konusunda tecrübesi olan var mı?

Re: Devexpress cxGrid Server Mod konusunda tecrübesi olan var mı?

Re: Devexpress cxGrid Server Mod konusunda tecrübesi olan var mı?

Re: Outlook üzerinden mail gönderme

Re: rad stüdio 10.2 kurulum

Re: rad stüdio 10.2 kurulum

Re: İçiçe birden fazla if

Re: Cxgrid hücresinde değer kontrolu

Re: hata : unable to create process: the requested operation requires elevation.

Re: hata : unable to create process: the requested operation requires elevation.