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 it to a...

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 TForm1.But...

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 assigned(ACellV...

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, cxFilter, c...

skalkan

UniDac server Mode Component

DevExpressUnidacServer.rar: (20.97 KiB) 147 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 // raise; Result...

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; VPMoveid ...

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.