Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 3/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
stringlist kolon
#1
Merhaba,


bazı verileri dbden alıp stringlistte atayacağım, id, firma, adet, tarih vb. daha sonra stringlistden duruma uygun olarak alacağım.
stringlisti parcalayarak veriler alınabiliyor ama stringlisti kolon yöntemi var mı? araştırmalarımda bu konuda hiçbir şey bulamadım. 

Bu yöntemi kullanmadan

SList.Add(FieldByName('ID').AsString + FieldByName('FIRMA').AsString+ FieldByName('ADET').AsString +FieldByName('TARIH').AsString);
Next;
Cevapla
#2
(28-02-2018, Saat: 12:57)serhat Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhaba,


bazı verileri dbden alıp stringlistte atayacağım, id, firma, adet, tarih vb. daha sonra stringlistden duruma uygun olarak alacağım.
stringlisti parcalayarak veriler alınabiliyor ama stringlisti kolon yöntemi var mı? araştırmalarımda bu konuda hiçbir şey bulamadım. 

Bu yöntemi kullanmadan

SList.Add(FieldByName('ID').AsString + FieldByName('FIRMA').AsString+ FieldByName('ADET').AsString +FieldByName('TARIH').AsString);
Next;

Asıl amacınız nedir ?

Sanki kulağı tersten tutuyorsunuz gibi geldi bana..
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#3
(28-02-2018, Saat: 12:57)serhat Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhaba,


bazı verileri dbden alıp stringlistte atayacağım, id, firma, adet, tarih vb. daha sonra stringlistden duruma uygun olarak alacağım.
stringlisti parcalayarak veriler alınabiliyor ama stringlisti kolon yöntemi var mı? araştırmalarımda bu konuda hiçbir şey bulamadım. 

Bu yöntemi kullanmadan

SList.Add(FieldByName('ID').AsString + FieldByName('FIRMA').AsString+ FieldByName('ADET').AsString +FieldByName('TARIH').AsString);
Next;



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


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Generics.Collections;

type
  TIPData = record
    HostName: string;
    HostLocation: string;
  end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    IPList: TDictionary<string, TIPData>;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  IPData: TIPData;
begin
  IPList := TDictionary<string, TIPData>.Create;

  IPData.HostName := 'Broadnet Europe France';
  IPData.HostLocation := 'France';
  IPList.Add('78.155.128.0', IPData);

  IPData.HostName := 'DNA Palvelut Oy';
  IPData.HostLocation := 'Finland';
  IPList.Add('62.113.160.0', IPData);

  IPData.HostName := 'CD-Telematika a.s.';
  IPData.HostLocation := 'Czech republic';
  IPList.Add('89.203.128.0', IPData);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  IPList.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  IPData: TIPData;
begin
  if IPList.TryGetValue('89.203.128.0', IPData) then
    ShowMessage('Provider ' + IPData.HostName + ' from ' + IPData.HostLocation)
  else
    ShowMessage('IP address not found!');
end;
Cevapla
#4
memtable yapısını incelemeni öneririm
Bu dünyada kendine sakladığın bilgi ahirette işine yaramaz. 
Cevapla
#5
(28-02-2018, Saat: 15:27)adelphiforumz Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Olmemtable yapısını incelemeni öneririm

+1
There's no place like 127.0.0.1
WWW
Cevapla
#6
(07-02-2018, Saat: 15:56)klavye Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlEmbarcadero Sencha konusunda ne dusunuyor bilmiyorum. Beklentileri neler, nasil bir yapi tasarliyorlar.
Ama unigui benzeri bir is cikaracaklarsa ben olsaydim hic ugrasmaz unigui satin alir ve kaldigi yerden daha hizli sekilde devam ettirirdim. Sonucta onca zamandır test edilen bir yapi var.

(28-02-2018, Saat: 13:54)brs Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(28-02-2018, Saat: 12:57)serhat Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhaba,


bazı verileri dbden alıp stringlistte atayacağım, id, firma, adet, tarih vb. daha sonra stringlistden duruma uygun olarak alacağım.
stringlisti parcalayarak veriler alınabiliyor ama stringlisti kolon yöntemi var mı? araştırmalarımda bu konuda hiçbir şey bulamadım. 

Bu yöntemi kullanmadan

SList.Add(FieldByName('ID').AsString + FieldByName('FIRMA').AsString+ FieldByName('ADET').AsString +FieldByName('TARIH').AsString);
Next;



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


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Generics.Collections;

type
  TIPData = record
    HostName: string;
    HostLocation: string;
  end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    IPList: TDictionary<string, TIPData>;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  IPData: TIPData;
begin
  IPList := TDictionary<string, TIPData>.Create;

  IPData.HostName := 'Broadnet Europe France';
  IPData.HostLocation := 'France';
  IPList.Add('78.155.128.0', IPData);

  IPData.HostName := 'DNA Palvelut Oy';
  IPData.HostLocation := 'Finland';
  IPList.Add('62.113.160.0', IPData);

  IPData.HostName := 'CD-Telematika a.s.';
  IPData.HostLocation := 'Czech republic';
  IPList.Add('89.203.128.0', IPData);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  IPList.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  IPData: TIPData;
begin
  if IPList.TryGetValue('89.203.128.0', IPData) then
    ShowMessage('Provider ' + IPData.HostName + ' from ' + IPData.HostLocation)
  else
    ShowMessage('IP address not found!');
end;

Paylaşım için teşekkürler.
Cevapla
#7
(28-02-2018, Saat: 16:42)SimaWB Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(28-02-2018, Saat: 15:27)adelphiforumz Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Olmemtable yapısını incelemeni öneririm

+1

Devexpress TdxMemData yapısını kastetmek istemiştim

Hocam ya biraz bonkör olun +10000 gibi olsun yoksa birçok yere giriş izni alıncaya kadar emekli olucam bu gidişle  Smile
Bu dünyada kendine sakladığın bilgi ahirette işine yaramaz. 
Cevapla
#8
Merhaba
İlla StringList Kullanıcaksanız.

SList.Add('ID='+FieldByName('ID').AsString); //şeklinde liste eklenir.

SList.Values['ID']; //şeklinde ID'ye karşılık gelen değer alınabilir.

= göre otomatik parçalar.
Cevapla
#9
(28-02-2018, Saat: 19:43)adelphiforumz Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlDevexpress TdxMemData yapısını kastetmek istemiştim

Hocam ya biraz bonkör olun +10000 gibi olsun yoksa birçok yere giriş izni alıncaya kadar emekli olucam bu gidişle  Smile

+1 ile; "sizinle aynı fikirdeyim" demek istemiştim Smile

TdxMemData olur, TFDMemTable olur, TClientDataSet olur.....
There's no place like 127.0.0.1
WWW
Cevapla
#10
Merhaba;

ShowMessage(IDList.TryGetValue[I]); idleri almak istiyorum fakat, bir türlü alamadım, bu konuda yardımcı olabilir misiniz? 

procedure TForm2.Button1Click(Sender: TObject);
var
  I: integer;
begin
  for I := 0 to IDList.Count - 1 do
  begin
    ShowMessage(IDList.TryGetValue[I]);
  end;
end;
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  CxGrid Kolon Birleştirme narkotik 17 587 09-03-2018, Saat: 08:05
Son Yorum: narkotik
  Kolon rengi serhat 3 233 16-01-2018, Saat: 13:41
Son Yorum: Abdullah ILGAZ
  Kolon başlığını kaldırma Dostk 4 304 13-11-2017, Saat: 15:12
Son Yorum: Dostk



Konuyu Okuyanlar: 1 Ziyaretçi