Hoşgeldin, Ziyaretçi
Sitemizden yararlanabilmek için Kayıt olmalısınız.

Kullanıcı Adınız:
  

Şifreniz:
  





Forumda Ara

(Gelişmiş Arama)

Forum İstatistikleri
» Toplam Üyeler: 1.162
» Son Üye: cascaridas
» Toplam Konular: 2.375
» Toplam Yorumlar: 18.877

Detaylı İstatistikler

Son Aktiviteler
Kayan Yazı
Forum: Genel Programlama
Son Yorum:

klavye
41 dakika önce
» Yorumlar: 46
» Okunma: 2.401
Iyi bir ide'nin avantajı ...
Forum: Muhabbet Olsun
Son Yorum:

masteryoda
50 dakika önce
» Yorumlar: 6
» Okunma: 65
Yazarken Dinlediğiniz Müz...
Forum: Muhabbet Olsun
Son Yorum:

Mandriva
1 saat önce
» Yorumlar: 48
» Okunma: 18.014
Delphi Udemy Kursu
Forum: Görsel Eğitimler
Son Yorum:

hyperxman
1 saat önce
» Yorumlar: 26
» Okunma: 715
Delphican Ailesinin Kurba...
Forum: Muhabbet Olsun
Son Yorum:

berk06
7 saat önce
» Yorumlar: 12
» Okunma: 148
Mobil platform örnekleri
Forum: e-Kaynak
Son Yorum:

hyperxman
Dün, Saat: 01:28
» Yorumlar: 3
» Okunma: 81
Listview tedit
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

narkotik
17-08-2018, Saat: 20:31
» Yorumlar: 2
» Okunma: 79
Uzak Masaüstü Bağlantısı ...
Forum: Hazır Programlar
Son Yorum:

yhackup
17-08-2018, Saat: 18:01
» Yorumlar: 43
» Okunma: 3.109
SOAPHeaders Debug & Relea...
Forum: Genel Programlama
Son Yorum:

Tuğrul HELVACI
17-08-2018, Saat: 11:19
» Yorumlar: 8
» Okunma: 227
Uygulama arka plana geçin...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

apachi2006
16-08-2018, Saat: 23:40
» Yorumlar: 3
» Okunma: 438

 
  Iyi bir ide'nin avantajı dezavantajı sizi hangisine yönlendirir?
Yazar: 10.Köy - 6 saat önce - Forum: Muhabbet Olsun - Yorumlar (6)

Herkese merhabalar.  Hobi amacli program yaziyorum. Mobil için programla için bir de javaya dolayısıyla android studio'ya baktım.  Java hakkında kitaplar okudum.  Ilk izlenimlerim çoğu işlemleri tanımlamaları tek tek yazmam gerektiğini gördüm.  Böyle yorumlamamin sebebi Delphi ide alışkanlığı olabilir.  

Kendimde gördüğüm ide ne kadar kullanıcı dostu olursa o kadar çok proje örneği hayal edip tasarlayabilmeme olanak veriyor ancak temelde dilin teknik detaylarını kurallarini kaliplarini kacirdigimin da farkındayım. 

 Konuyu uzatıp sizleri sıkmak istemiyorum ancak bu durum bana aynen şu örneği yaşatıyor.  Exceli bir ide gibi dusundursem a1 hücresine veri yazdığımda derleyiciye bu veri icin tek tek a1 hucresinde sayfa 1 de vs vs belirte belirte gidiyor.  Bir ide bu verinin hücre bilgisini sayfasını hangi tip veri olduğuna vb kadar kullanıcıya tanimladiginda exceli daha rahat kullanıp sadece işimize odaklanmış istedigimiz sonuca dogrudan gitmis olmuyor muyuz?  Diğer türlü hem programcılık çoğu kişinin gözünde çok karmaşık ve o kadar zaman ayırmaya degmeyen bir alan olarak gözüküyor yeni projeler çıkmıyor  üstelik yapabilinecekleri de birçok kod yığını kurallar yüzünden zaman sorunu nedeniyle islevsellikten gorsellikten kısmen uzak kalıyor görüyorum.  Google dahi jetbrainse kotlini hazirlattirirken android studio'ya göre az kod ve kuralla tanıttı.  

Benim icin dil neredeyse ide ile beraber geliyor. Android studio kullandığını ve birçok başarılı projeye imza atan sayın @yhackupı biliyorum kendisinin ve sizlerin yorumlarınızı gerçekten merak ediyorum.

Bu konuyu yazdır

  Mobil platform örnekleri
Yazar: Lord_Ares - 18-08-2018, Saat: 21:33 - Forum: e-Kaynak - Yorumlar (3)

Araştırma yaparken, android örnek uygulamalara denk geldim.  Belki lazım olur diye sizlerle paylaşmak istedim. Konuyu yanlış yere açtıysam kusura bakmayın.
Örneklere Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol ulaşabilirsiniz.

Örnekler projeler:
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol                    - Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol                         - Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
-Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol             - Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol                   -Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol                     - Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol            - Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol                         - Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol                      - Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol                          - Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol                           - Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol                   - Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
-Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol                   - Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
-Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol                             Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

Bu konuyu yazdır

  Delphican Ailesinin Kurban Bayramı Mübarek olsun.
Yazar: cinarbil - 18-08-2018, Saat: 13:05 - Forum: Muhabbet Olsun - Yorumlar (12)

Cümle ehli Müslümanların ve Delphican Ailesinin Kurban Bayramı Mübarek olsun.

Bayramdan sonrada görüşmek dileği ile.

Bu konuyu yazdır

  Listview tedit
Yazar: ahmetb - 17-08-2018, Saat: 10:34 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (2)

Merhaba;

Listview appearance metoduyla tedit yok,  Listview tedit nasıl ekleyebilirim?

Bu konuyu yazdır

  Aşağıdan Yukarıya Eğik Atış
Yazar: narkotik - 16-08-2018, Saat: 11:48 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (5)

Merhaba
Firemonkey ile geliştirdiğim bir uygulama için nesneleri aşağıdan yukarıya eğik atış biçiminde fırlatmak istiyorum. Yaklaşık 2 saatlik bir uğraş sonucu aşağıdaki kodlardaki yapıyı kurdum. Vcl tarafında sorun yok ama mobilde istediğim performansı alamıyorum. Ve Peş peşe atışlar yaptıramıyorum. Sonra attığım öncekini bekliyor. Açıkcası ilk başta animationlarla yapmaya çalıştım fakat çok vakıf olmadığım için beceremedim. Proje test kodlarını paylaşıyorum. Şu anki yapı içime sinmedi asıl soru bunu animationlarla nasıl yaparız.

LİNK : Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

unit Unit1;

interface

uses
 System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
 FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation, FMX.StdCtrls, FMX.Objects,Math;


type
 TTopOlustur = record
   TopParent    : TPaintBox;
   TopRenk      : TAlphaColor;
   TopSize      : Integer;
   TopLeft      : Integer;
   TopTop       : Integer;
   NamluUzunluk : Integer;
   NamluAci     : Extended;
   YerCekimi    : Extended;
   IlkHiz       : Extended;
   TopGidisHizi : Extended;
end;

type
 TFrmTest = class(TForm)
   BtnTest: TButton;
   PaintBox1: TPaintBox;
   procedure BtnTestClick(Sender: TObject);
 private
   procedure TopOlustur(xParam: TTopOlustur);
 public
   { Public declarations }
 end;

var
 FrmTest: TFrmTest;

implementation

{$R *.fmx}

{ TForm1 }

procedure TFrmTest.BtnTestClick(Sender: TObject);
var
 xParam : TTopOlustur;
begin
with xParam do
 begin
   TopParent    := PaintBox1;
   TopRenk      := TAlphaColorRec.Crimson;
   TopSize      := 20;
   TopLeft      := 10;
   TopTop       := Self.ClientHeight-20-Trunc(BtnTest.Height);
   NamluUzunluk := 60;
   NamluAci     := 40;
   YerCekimi    := 100;
   IlkHiz       := 22;
   TopGidisHizi := 0.05;
 end;
 TopOlustur(xParam);
end;

procedure TFrmTest.TopOlustur(xParam: TTopOlustur);
var
 xTop                             : TCircle;
 v2,vAv                           : Extended;
 a, vx, vy, vy1, vy2, x, y, nexty : Extended;
 temp                             : Extended;
 Barrellength                     : Extended;
 dx,dy                            : Extended;
 SinTheta, CosTheta               : Extended;
 TimeInc                          : Extended;
 InBarrel                         : Boolean;
 stopped                          : Boolean;
 firstout                         : Boolean;
 barreltop                        : TPoint;
 TopRadius                        : Integer;
 TopLeft                          : Integer;
 TopTop                           : Integer;
 TopSize                          : Integer;
 MaxLevel                         : Integer;
 Theta                            : Extended; // Teta
 Gravity                          : Extended; // Yer Çekimi
 IlkHiz                           : Extended; // Başlangıç Hızı
 Origin                           : TPoint;   // Top Orjini
 p1,p4                            : TPoint;   // Temp Point
 IlkKonum                         : TPoint;   // İlk Konumlar
 NamluUzunluk                     : Integer;  // Namlu Uzlunluğu

 function Fn_Mesafe(p1,p2:TPoint):Extended; // Mesafeyi Verir
 begin
   result             := Sqrt(Sqr(p1.x-p2.x)+Sqr(p1.y-p2.y));
 end;

 procedure TopKonumAyarla;                  // Topun Konumu Ayarlanır
 begin
   application.processmessages;
   xTop.Position.X := TopLeft;
   xTop.Position.Y := TopTop;
 end;

 procedure Yenile;                          // Topu Namluya Doldurur Yeniler
 begin
   application.processmessages;
   TopLeft            := IlkKonum.x;
   TopTop             := IlkKonum.y;
   TopKonumAyarla;
 end;

 procedure IlkKurulum;
 var
   w                  : Integer;
   a                  : Extended;
    procedure rotate(var p:Tpoint; a:Extended);
    var
      t   :  TPoint;
    begin
      t   := P;
      p.x := Trunc(t.x*cos(a)-t.y*sin(a));
      p.y := Trunc(t.x*sin(a)+t.y*cos(a));
    end;
    procedure translate(var p:TPoint; t:TPoint);
    Begin
      p.x := p.x+t.x;
      p.y := p.y+t.y;
    end;
 begin
   xTop              := TCircle.Create(xParam.TopParent); // Parametre Top Parenti
   xTop.Visible      := False;
   xTop.Parent       := xParam.TopParent;                 // Parametre Top Parenti
   xTop.Size.Width   := xParam.TopSize; // Parametre Top Size
   xTop.Size.Height  := xParam.TopSize;// Parametre Top Size
   xTop.Fill.Color   := xParam.TopRenk; // Parametre Top Renk
   xTop.BringToFront;
   TopLeft           := xParam.TopLeft;  // Parametre Top Left
   TopTop            := xParam.TopTop; // Parametre Top Top
   TopSize           := xParam.TopSize;  // Parametre Top Size
   Origin.x          := TopLeft + TopSize div 2;
   Origin.y          := TopTop  + TopSize div 2;
   application.processmessages;
   IlkKonum.x        := TopLeft;
   IlkKonum.y        := TopTop;
   TopRadius         := TopSize div 2;
   NamluUzunluk      := Trunc(xParam.NamluUzunluk); // Parametre Namlu Uzlunluk
   theta             := DegToRad(xParam.NamluAci);       // Parametre Namlu Açı
   w                 := TopSize div 2;
   a                 := xParam.NamluAci;                 // Parametre Namlu Açı
   p1                := point(-w,w);
   p4                := point(NamluUzunluk,+w);
   rotate(p4,a);
   translate(p4,origin);
   rotate(p1,a);
   translate(p1,Origin);
   MaxLevel          := p1.y;
 end;

 function Fn_TopEkrandaMi:boolean;
 var
   ballcenter    :  TPoint;
 begin
   Result        := False;
   If not inbarrel then Exit;
   if barrellength<TopRadius then
     Result      := False
   else
   begin
     ballcenter  := Point(TopLeft+TopRadius,TopTop+TopRadius);
     Result      := (Fn_Mesafe(IlkKonum,ballcenter) < barrellength);
     inbarrel    := Result;
   end;
 end;
Begin
 IlkKurulum;
 try
   Yenile;
   xTop.Visible    := True;
   sinTheta        := sin(theta);
   costheta        := cos(theta);
   Barrellength    := Fn_Mesafe(p1,p4);
   barreltop.y     := Origin.y-round(barrellength*sintheta);
   barreltop.x     := Origin.x+round(barrellength*costheta);
   x               := TopLeft;
   y               := TopTop;
   Gravity         := xParam.YerCekimi/100; // Parametre Yer Çekimi
   a               := -Gravity*sin(theta);
   IlkHiz          := xParam.IlkHiz;      // Parametre Power
   timeinc         := xParam.TopGidisHizi;     // Parametre Top Gidiş Hızı Slow Bununla ayarlanır
   Vx              := IlkHiz*costheta; //x yönünde hız
   vy              := IlkHiz*sintheta; //y yönünde hız
   VAv             := IlkHiz;
   dx              := Vx*timeinc;
   dy              := Vy*timeinc;
   firstout        := True;
   stopped         := False;
   inBarrel        := True;
   repeat
     if Fn_TopEkrandaMi then
     begin
       v2          := IlkHiz+a*timeinc;
       vAv         := (IlkHiz+v2)/2;
       vx          := vAv*costheta;
       vy          := vAv*sintheta;
       dx          := vx*timeinc;
       dy          := vy*timeinc;
       x           := x+dx;
       y           := y-dy;
       TopLeft     := round(x);
       TopTop      := round(y);
       if (v2<=0) and ((TopLeft<IlkKonum.x) or (TopTop>IlkKonum.y)) then
       begin
         stopped   := True;
         TopLeft   := IlkKonum.x;
         TopTop    := IlkKonum.y;
       end;
       IlkHiz      := v2;
     end
     else
     begin
       if firstout then
       begin
         firstout    := False;
         a           := -xParam.YerCekimi/100; // Parametre Yer Çekimi
         vy1         := vy;
       end;
       temp          := vy1+a*timeinc;
       vy2           := temp;
       vy            := (vy1+vy2)/2;
       dy            := vy*timeinc;
       nexty         := y-dy;
       If vy2<=0 then
       begin
         if (nexty>MaxLevel-TopSize)
         then
         begin
           TopTop    := MaxLevel-TopSize;
           stopped   := true;
         end
         else
         begin
           y:=nexty;
           TopTop    := round(y);
         end;
       end
       else
       begin
         if (nexty<0) then
         begin
           dy        := 0;
           vy2       := -vy1;
           If xParam.YerCekimi=0 then stopped := True; // Parametre Yer Çekimi
         end
         else
         begin
           y         := nexty;
           TopTop    := round(y);
         end;
       end;
       if x+dx> xParam.TopParent.Width then // Parametre Top Parent Width
       begin
         TopLeft     := Trunc(xParam.TopParent.width) - TopSize; // Parametre Top Parent Width
         TopTop      := MaxLevel-TopSize;;
         stopped     := True;
       end
       else
       begin
         x           := x+dx;
         TopLeft     := round(x);
       end;
       vy1:=vy2;
       //Top Nereye geldi burada hesaplanacak..
     end;
     TopKonumAyarla;
     application.processmessages;
   until stopped;
 finally
   xTop.DisposeOf;
 end;
end;

end.

Bu konuyu yazdır

  SOAPHeaders Debug & Release Farkı
Yazar: yhackup - 15-08-2018, Saat: 14:33 - Forum: Genel Programlama - Yorumlar (8)

Merhaba arkadaşlar,

Soap Header Auth. var , Bu şekilde kullanıyorum..

    
try
      MyRio := THTTPRIO.Create(nil);
     MyRio.OnAfterExecute := RioResponse;
     MyRio.OnBeforeExecute := RioRequest;
     Head := Header.Create;
     Head.Username := KullaniciAdi;
     Head.Password := KullaniciParola;
     MyRio.SOAPHeaders.Send(Head);
*
*
*
*


Ancak hizmeti Debugda derleyerek çalıştığımda Giden xml'e baktığımda header bu şekilde,

   
<SOAP-ENV:Header>
      <NS1:Header xmlns:NS1="http://tempuri.org/"/>
  </SOAP-ENV:Header>

Release Olarak derleyerek çalıştığımda Giden xml'e baktığımda header bu şekilde,

   <SOAP-ENV:Header>
      <NS1:Header xmlns:NS1="http://tempuri.org/">
        <Username xmlns="http://tempuri.org/">XXXXXXx</Username>
        <Password xmlns="http://tempuri.org/">XXXXXX</Password>
     </NS1:Header>
  </SOAP-ENV:Header>

Bunun sebebi ne olabilir ?

Bu konuyu yazdır

  Kendi oluşturduğumuz nesnelerin yok edilme kuralları
Yazar: cinarbil - 14-08-2018, Saat: 12:58 - Forum: Genel Programlama - Yorumlar (5)

Soruyu sorma amacın aşağıdaki kod için değil genel olarak kendi oluşturduğunuz nesneler için geçerli.

aşağıdaki procedure ile sorgular oluşturarak kullanıyorum.

bir hata oluştuğunda veya kodlar düzgün çalıştı işimiz bittiğinde 

 if svk_sorgu.Active then svk_sorgu.Free;
 

şeklin demi oluşan sorgu yu yok etmeli yoksa svk_sorgu.Free; olarak mı

program hata verdi kırıldı svk_sorgu.Free; kullanmak access hatasına düşürür mü.


Procedure sevk_data_al;
var mesaj:string;
begin
  svk_sorgu:= TADOQuery.Create(nil); // sorgu için oluştur
   try
       svk_sorgu.Connection := data_form.Sunucu_baglan;
       svk_sorgu.SQL.Clear;
       svk_sorgu.sql.Add('SELECT * FROM Sevk');
       svk_sorgu.ExecSQL;
                  except  on E: Exception do
                   begin
                    if svk_sorgu.Active then svk_sorgu.Free;
                    mesaj:='Sevk Sorgu başarısız. Hata mesajı: '+e.Message;
                    Application.MessageBox(PWideChar(mesaj), 'Hata', MB_OK + MB_ICONERROR);
                    exit;
                    end;
   end;


end;

Bu konuyu yazdır

  Saat başı kontrol ?
Yazar: Bay_Y - 14-08-2018, Saat: 10:09 - Forum: Genel Programlama - Yorumlar (21)

Herkese merhabalar  , 

Bir konuda fikrinizi almak istiyorum. Çok yeterli olduğum bir konu değil yanlış birşey yapmamak adına fikirlerinizi paylaşırsanız çok memnun olurum.

Bir merkezimizin olduğunu ve buna bağlı şubelerin olduğunu düşünelim. Bu merkez otomatik olarak şubelere bağlanıp bazı veriler alıp bazı veriler gönderecekler ve bunu belli aralıklarla yapacaklar işte benim burdaki sıkıntım bu belli aralıkların kontrolü ile ilgili.

her yarım saat  , her saat başı gibi zaman aralıklarında kontrol yapılabilmesi için Timer kullanmak gerekiyor sanırım.

ama bu timer sistemi ne kadar yorar ve mantıklımıdır diye size danışmak istiyorum.

Diğer sitelerde böyle şeyler paylaşılmış ama bunun için timerin her dakika çalışması gerekit bu durumda bile '00' kaçırılması durumu sökonusu 
o yüzden belki daha kısa sürede saniyelerde çalışması gerekecek buda sisteme yük bindirecek mi diye merak ediyorum.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit1.Text := timetostr(time);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
edit2.Text := formatdatetime('nn', strtotime(edit1.Text));
if edit2.Text = '00' then
ShowMessage('saat Başı');

end;


bu yöntem dışında yapılabilir birşey var mıdır , jedi ile ilgili bir bileşenden bahsedilmiş ama ben bulamadım yardımcı olabilecek arkadaşlar varsa yardmlarını bekliyorum

herkese teşekkürler ve iyi çalışmalar diliyorum.

Bu konuyu yazdır

Question Unigui UnimDBGrid1 Dinamik Yapı
Yazar: elixir84 - 14-08-2018, Saat: 10:08 - Forum: Delphi ile Web Teknolojileri - Yorum Yok

Merhaba,

Unigui de Touch (mobil) kısmında dinamik DBGrid yapmak istiyorum. Yani Query göre UnimDBGrid1 Column ları oluşacak ve bunlara autofit özelliği verilecek. 

Hiç bişey yapamadan Datasource bağlayınca listeleniyor ama columnlara autofit özelliği veremedim. Yada columnlara Width değerlerini kodla verebiliyormuyuz. Bunu Unigui Touch (mobil) kısmında yapmaya çalışıyorum.


Çok özür dileyerek şöyle bir kod buldum..

procedure FitGridColumns(Grid: TUnimDBGrid; theForm:TUnimForm);
const
 C_Add=3;
var
 ds: TDataSet;
 bm: TBookmark;
 i: Integer;
 w,tw, ShortestLength: Integer;
 a: Array of Integer;

 Function GetTheTextWidth(StrIn:String):Integer;
 var c: TBitmap;
 Begin
    Result := 0;
    c := TBitmap.Create;
    try
      c.Canvas.Font.Name := theForm.Font.Name;
      c.Canvas.Font.Size := theForm.Font.Size+2;
      Result := c.Canvas.TextWidth(StrIn);
    finally
      c.Free;
    end;
 End;

begin
 ds := Grid.DataSource.DataSet;
 if Assigned(ds) then
 begin
   bm := ds.GetBookmark;
   try
     if Grid.Columns.Count = 1 then
     Begin
       Grid.Columns[0].Width := grid.Width;
     End
     Else
     Begin
       if ds.RecordCount > 0 then
       Begin
         ds.First;
         SetLength(a, Grid.Columns.Count);
         while not ds.Eof do
         begin
           for I := 0 to Grid.Columns.Count - 1 do
           begin
             if Assigned(Grid.Columns[i].Field) then
             begin
               tw := GetTheTextWidth(Grid.Columns[i].Title.Caption)+40;
               w :=  GetTheTextWidth(ds.FieldByName(Grid.Columns[i].Field.FieldName).DisplayText)+40;

               if w < tw then
                 w := tw;

               if a[i] < w  then
                  a[i] := w ;
             end;
           end;
           ds.Next;
         end;
         for I := 0 to Grid.Columns.Count - 1 do
         Begin
           Grid.Columns[i].Width := a[i] + C_Add;
         End;
       End
       Else
       Begin
         for I := 0 to Grid.Columns.Count - 1 do
         begin
           Grid.Columns[i].Width := GetTheTextWidth(Grid.Columns[i].Title.Caption)+40;
         end;
       End;
     End;
     ds.GotoBookmark(bm);
   finally
     ds.FreeBookmark(bm);
   end;
 end;
end;

Bu konuyu yazdır

  Yurtdışına açılmak için izlememiz gereken yollar.
Yazar: csunguray - 13-08-2018, Saat: 18:52 - Forum: Muhabbet Olsun - Yorumlar (29)

Uzun zamandır böyle bir başlık açmak istiyordum. Dolar ve Avro'nun fırlamasıyla bu konu daha da önem kazandı.

Eğer bir takım ürünler geliştirip buradaki müşterilerimize satabiliyorsak (yani onlar için faydalı olabiliyorsak) aynı şeyi Almanya'daki bir Alman (veya Türk), İtalya'daki bir İtalyan vb. için de yapabiliriz. Çünkü burada (atıyorum) 1.000 TL'ye sattığımız ürünü Avrupa pazarında yaklaşık 1.000 Avro'ya satma şansımız var.

Bunu yapabilmek için izlememiz gereken yollar, kazanmamız gerek yetenekler, ürünlerimizde yapacağımız değişiklikler ve sahip olmamız gereken bakış açıları ne olmalıdır? Bu konuda fikirlerinizi belirtirseniz faydalı olacağına inanıyorum.

Bu konuyu yazdır