Son güncellemelerle birlikte unigui çok daha iyi bir yere geldi.

Aşağıda bazı yeni bileşenlere ait görselleri görebilirsiniz, son sürümde örnek projelerde eklenmiş.

ReCaptcha
ShowProgress
IconCombobox
PivotGrid
NativeImageList - Image Files
UniMap
CalendarPanel (Mobile)
Grid - RowWidget


+Grid - RowWidget 




+Maps

Arkadaşlar selamlar

XE2 versiyonunda kullanılmak üzere, treeview bileşenine benzer, dbgrid bileşenine ihtiyacım var. Ana grupların altında alt grupları listelemem gerekiyor. Bu konuda desteklerinizi rica ederim.

Merhaba, 
Ben multi-platform tarafinda sql server'a veri kaydetmeye calisiyorum,
Sorun windowsta derledigimde gayet duzgun calisiyor hat vermeden fakat androidde derledigimde read-only hatasi aliyorum.
isin ilginc tarafi veri okurken hicbir sikinti yok sadece veri kaydederken bu hatayi aliyorum.

procedure TForm1.btn_onaylaClick(Sender: TObject);
Var
 i:integer;
begin

if Edit1.Text='1578' then
begin
 ayarlartab_slide.ExecuteTarget(self);
 edit1.Text:='';
 exit;
end;
  if length(edit1.Text)<>11 then
  Begin
    ShowMessage('Hatalı Tc No');
    edit1.Text:='';
    Exit;
  End;
  Qry_Hasta.Close;
  Qry_Hasta.SQL.Text:='SELECT * FROM HASTA where TC_KIMLIK_NUMARASI='+QuotedStr(Edit1.Text);
  Qry_Hasta.Open;
  if Qry_Hasta.RecordCount=0 then
  Begin
  ShowMessage('Aranılan Kayıt Bulunamadı');
  Edit1.Text:='';
  Edit1.SetFocus;
 Exit;
  End;
  Qry_SiraAl.Close;
  Qry_SiraAl.SQL.Text:='SELECT * FROM HASTA_SIRA WHERE KABUL_TARIHI='+TarihDuzenlesql(date,'')+' AND HASTA_KODU='+Qry_Hasta.FieldByName('HASTA_KODU').AsString;
  Qry_SiraAl.Open;
  if Qry_SiraAl.RecordCount>0 then
  Begin
  Qry_sirakntrl.Close;
  Qry_sirakntrl.ParamByName('TC_KIMLIK_NUMARASI').Value:=edit1.Text;
  Qry_sirakntrl.Open;
  if Qry_sirakntrl.RecordCount<>0 then
  begin
  label2.Text:='MEVCUT SIRANIZ';
  siranotab_slide.ExecuteTarget(self);
  label2.Text:=Qry_sirakntrl.FieldByName('NUMARATOR_SIRASI').AsString;
  end;
    //ShowMessage('Kişi Daha Önce Sıra Almış Tekrar Alamaz...');
    edit1.Text:='';
    Exit; End;
 Qry_Sorgu.Close;
 Qry_Sorgu.SQL.Text:='SELECT MAX (NUMARATOR_SIRASI) AS SIRA FROM HASTA_SIRA WHERE KABUL_TARIHI='+TarihDuzenlesql(date,'')+' AND AH_KIMLIK_NO='+QuotedStr(initc);     //KAC KAYIT VAR SORGULU
 Qry_Sorgu.Open;
 i:=Qry_Sorgu.FieldByName('SIRA').AsInteger+1;
 Qry_SiraAl.Append;
 Qry_SiraAl.FieldByName('HASTA_KODU').Value:=Qry_Hasta.FieldByName('HASTA_KODU').AsString ;
 Qry_SiraAl.FieldByName('TC_KIMLIK_NUMARASI').Value:=Qry_Hasta.FieldByName('TC_KIMLIK_NUMARASI').AsString;
 Qry_SiraAl.FieldByName('AD').Value:=Qry_Hasta.FieldByName('AD').AsString ;
 Qry_SiraAl.FieldByName('SOYADI').Value:=Qry_Hasta.FieldByName('SOYADI').AsString ;
 Qry_SiraAl.FieldByName('AH_KIMLIK_NO').Value:=initc;
 Qry_SiraAl.FieldByName('NUMARATOR_SIRASI').AsInteger:=i;
 Qry_SiraAl.FieldByName('KABUL_TARIHI').AsDateTime:=DATE;
 Qry_SiraAl.FieldByName('KABUL_ZAMANI').AsDateTime:=NOW;
 Qry_SiraAl.Post;
 label2.Text:=i.ToString;
 siranotab_slide.ExecuteTarget(self);
 edit1.Text:='';
end;

Merhaba,
Uygulamam facebook gibi bildirim eklemek istiyorum. Uygulama iconun sağ üst köşesinde 4 yazsın mesela. bunun için bildiğiniz bir yöntem kaynak var mı şimdiden çok teşekkür ederim

Merhaba,

İhtiyaç gereği LZW algoritması kullanmam gerekti. Diğer dillerde internet üzerinde pek çok örnek kod varken Delphi'de elle tutulur bir şey göremedim. İhtiyaç dahilinde yazdım birilerinin işini görür diye paylaşıyorum.

LZW algoritması nedir?
Lempel, Ziv ve Welch tarafından geliştirilmiş kayıpsız sıkıştırma algoritmalarından birisidir. Karşılaşılan karakter grupları bir tabloda tutularak aynı karakter grupları ile karşılaşıldığında sadece tablodaki numarası yazılarak veri kısaltılmış olur... Merak eden arkadaşlarımız devamını araştırabilir.

Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

 

unit LZWLib;

{****************************
 LZWLib.pas 2019
 Salih BAĞCI
*****************************}

interface

 uses SysUtils, System.Classes;

 type
   TLZWEncodeResult = record
   EncodeString     : String;
   SozcukList       : String;
 end;

 type
   TLZWDecodeResult = record
   DecodeString     : String;
   SozcukList       : String;
 end;

 type
   TMultiArray = array of array of String;

 function IntegerArrayIndexOf(const AArray:TMultiArray;const ASearch:String):Integer;
 function StringArrayIndexOf(const AArray:TMultiArray;const ASearch:String):Integer;
 function EncodeLZW(const AValue: String):TLZWEncodeResult;
 function DecodeLZW(const AValue: String):TLZWDecodeResult;

 const EncodeAyrac = '-';
 const ASCII_BEGIN = 400;

implementation

function IntegerArrayIndexOf(const AArray: TMultiArray; const ASearch: String): Integer;
Var
 Ind : Integer;
begin
 Result := -1;
 for Ind := Low(AArray) to High(AArray) do
   if AArray[Ind][1] = ASearch then
     Exit(Ind);
end;

function StringArrayIndexOf(const AArray: TMultiArray; const ASearch: String): Integer;
Var
 Ind : Integer;
begin
 Result := -1;
 for Ind := Low(AArray) to High(AArray) do
   if AArray[Ind][0] = ASearch then
     Exit(Ind);
end;

function DecodeLZW(const AValue: String): TLZWDecodeResult;
Var
 xSozcukArray  : TMultiArray;
 xSozcukKonumN : Integer;
 xSozcukLength : Integer;
 Ind           : Integer;
 xValueList    : TStringList;
 OLD           : String;
 NEW           : String;
 S,C           : String;
 ASCII         : Integer;
begin
 if AValue = '' then
   Exit;
 Result.DecodeString := '';
 Result.SozcukList   := '';
 xSozcukLength       := 0;
 ASCII               := ASCII_BEGIN;

 xValueList := TStringList.Create;
 with xValueList do
 begin
   BeginUpdate;
   Text := AValue;
   Text := StringReplace(Text,EncodeAyrac,sLineBreak,[rfReplaceAll]);
   EndUpdate;
 end;

 try
   for Ind := 0 to Pred(xValueList.Count) do
   begin
     if StrToInt(xValueList[Ind]) < ASCII_BEGIN + 1 then
     begin
       Inc(xSozcukLength);
       SetLength(xSozcukArray,xSozcukLength,2);
       xSozcukArray[Pred(xSozcukLength)][0] := Char(StrToInt(xValueList[Ind]));
       xSozcukArray[Pred(xSozcukLength)][1] := xValueList[Ind];
     end;
   end;

   OLD                 := Char(StrToInt(xValueList[0]));
   Result.DecodeString := OLD;
   C                   := '';

   for Ind := 1 to Pred(xValueList.Count) do
   begin
     NEW           := xValueList[Ind];
     xSozcukKonumN := IntegerArrayIndexOf(xSozcukArray,NEW);
     if xSozcukKonumN = -1 then
     begin
       S := OLD;
       S := S + C;
     end
     else
       S := xSozcukArray[xSozcukKonumN][0];

     Result.DecodeString := Result.DecodeString + S;
     C                   := S[1];

     Inc(xSozcukLength);
     Inc(ASCII);
     SetLength(xSozcukArray,xSozcukLength,2);
     xSozcukArray[Pred(xSozcukLength)][0] := OLD + C;;
     xSozcukArray[Pred(xSozcukLength)][1] := IntToStr(ASCII);
     Result.SozcukList                    := Result.SozcukList + OLD + C + ' : ' + IntToStr(ASCII) + sLineBreak;
     OLD                                  := S;
   end;
 finally
   FreeAndNil(xValueList);
 end;
end;

function EncodeLZW(const AValue: String): TLZWEncodeResult;
Var
 xSozcukArray   : TMultiArray;
 xSozcukLength  : Integer;
 xSozcukKonumPC : Integer;
 xSozcukKonumP  : Integer;
 Ind            : Integer;
 P              : String;
 C              : Char;
 ASCII          : Integer;
begin
 if AValue = '' then
   Exit;
 Result.EncodeString := '';
 Result.SozcukList   := '';
 xSozcukLength       := 0;
 ASCII               := ASCII_BEGIN;

 for Ind := Low(AValue) to High(AValue) do
 begin
   if StringArrayIndexOf(xSozcukArray,AValue[Ind]) = -1 then
   begin
     Inc(xSozcukLength);
     SetLength(xSozcukArray,xSozcukLength,2);
     xSozcukArray[Pred(xSozcukLength)][0] := AValue[Ind];
     xSozcukArray[Pred(xSozcukLength)][1] := IntToStr(Ord(AValue[Ind]));
   end;
 end;

 P := AValue[1];
 for Ind := Succ(Low(AValue)) to High(AValue) do
 begin
   C := AValue[Ind];
   xSozcukKonumPC := StringArrayIndexOf(xSozcukArray,P + C);
   if xSozcukKonumPC <> -1 then
     P := P + C
   else
   begin
     xSozcukKonumP       := StringArrayIndexOf(xSozcukArray,P);
     Result.EncodeString := Result.EncodeString + xSozcukArray[xSozcukKonumP][1] + EncodeAyrac;

     Inc(xSozcukLength);
     Inc(ASCII);
     SetLength(xSozcukArray,xSozcukLength,2);
     xSozcukArray[Pred(xSozcukLength)][0] := P + C;
     xSozcukArray[Pred(xSozcukLength)][1] := IntToStr(ASCII);
     Result.SozcukList                    := Result.SozcukList + P + C + ' : ' + IntToStr(ASCII) + sLineBreak;

     P := C;
   end;
 end;
 xSozcukKonumP       := StringArrayIndexOf(xSozcukArray,P);
 Result.EncodeString := Result.EncodeString + xSozcukArray[xSozcukKonumP][1];
end;

end.

İyi günler.
Aşağıdaki triggeri  stokHareket dosyasına oluşturdum sql management ten oluşan trigger i görebiliyorum.

CREATE TRIGGER Stok_Giris ON StokHareket
AFTER INSERT
AS
 DECLARE @Hrkid INT
 DECLARE @miktar FLOAT
 SELECT @Hrkid = ST_STOKID, @miktar = ST_MIKTAR  FROM inserted
 UPDATE Stok SET STOK_TOP_GRN = STOK_TOP_GRN+@miktar 
 WHERE STOK_ID=@Hrkid

merhaba iyi gunler assagideki kod satirinda ** ile baslayan kodu ekleyince yani ini.dosyasindan veri cekince access violation hatasi aliyorum sorun nedir?

procedure TForm1.FormShow(Sender: TObject);
var
iniServer,iniAd:string;
ini1 : TINIFile;
i:integer;
begin
 ini1 := TINIFile.Create(TPath.Combine(TPath.GetDocumentsPath ,'SETTINGS.INI'));
 iniServer:= ini1.readString('DOKTOR','SERVER', '');
 iniAd:=ini1.ReadString('DOKTOR','SERVER','');
 initc:=ini1.readString('DOKTOR','TC','');
 ini1.Free;

  if (iniServer='')or(iniAd='')or (initc='') then
  begin
    ShowMessage('Sunucu Ayarları Eksik Lütfen Doldurun');
    ayarlartab_slide.ExecuteTarget(self);
    exit;
  end;

  SetLength(con_S,2);
  SetLength(Qry_S,2);
  for I := 0 to Length(con_S)-1 do
  Begin
       ini1 := TINIFile.Create(TPath.Combine(TPath.GetDocumentsPath ,'SETTINGS.INI'));
   /
******     con_S[i].Server:=ini1.readString('DOKTOR'+i.ToString,'SERVER', '');
  
  End; 

Merhaba

GPS cihazını com porttan nrComm componenti ile okuyorum (farklı componentlerle de okudum.) .
Örnek koda gör eyaptığımda yada demo uygulama da gelen veri aşağıdaki gibi anlamsız ve strine çeviremedim.

Merhaba arkadaşlar,
Quickreportta bir çıktı almaya çalışıyorum. İşin aslı sadece 57 tane satır yazacak bunu db.den alacak. Satırların yanyana yazıp her 4 satırda
bir sıra aşağıya inecek ve hücresel bir rapor almış olacağım.
Yani ;

1.satır ----1.Kayıt     2.Kayıt   3.Kayıt   4.Kayıt
2.satır ----5.Kayıt     6.Kayıt   7.Kayıt   8.Kayıt
..
.
.
15.satır ----57.Kayıt


isteğim bu şekilde çıktı alabilmek bunu nasıl yapabilirim ?

Teşekkürler.

Merhaba,
PostgreSQL veri tabanında bir hesaplama yaparak sonuç alıyorum. 

'% '||(t1.top*100 / t2.toplam) AS yuzdelik