mengambil 2 huruf terakhir dari editbox

met malem ..

help ...mohon bantuan nya...

edit2.text berisi = ABCDEFG
>
edit1.Text:=copy(Edit2.Text,1,2); // 2 huruf pertama

gmn crnya mengambil text dari edit2 pada 2 hurf terakhir.. :)

Like·Comment·Follow

Imam Chalimi Bin Moeslim
uses StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=RightStr(Edit2.Text,2);
end;

Menambah component secara runtime delphi

‎[Tanya om...]

Om, gmn caranya menampilkan sejumlah komponen sesuai dengan yang diinginkan..

seperti gambar om.., kemudian tetap memperhatikan jarak tiap2 komponen. :D

• Udin Zigma likes this.
• 

  
  
  ArRady Fuad Ar-Radhihttps://www.facebook.com/groups/kppdi/10151580730985850/
  
  KOMUNITAS PENGGEMAR PEMROGRAMAN DELPHI INDONESIA
  ‎[SHARE] Menjawab pertanyaan yang ini:https://www.facebook.com/groups/kppdi/per...See more
  7 hours ago · Like
  
  
  Adhi Pras procedure TFrmMon.posMonitor;
  var i, lebar, kiri, atas : Integer;
  begin
  if logged=false then Exit;
  lebar := pnlMon.Width;
  kiri := 0;
  atas := 0;
  
  for i := 1 to MAX_MON do
  begin
  pnl := FindComponent('tbl'+IntTostr(i)) as TPanel;
  if (kiri + pnl.Width) < lebar then
  begin
  pnl.Left := kiri ;
  pnl.Top := atas;
  kiri := kiri + pnl.Width; // jarak kekiri , mepet, perlu jarak tambahin
  end else
  begin
  // kalo jarak ke kiri penuh turun kebawah
  kiri := 0;
  atas := atas + pnl.Height;
  pnl.Left := kiri ;
  pnl.Top := atas;
  kiri := kiri + pnl.Width;
  end;
  end;
  end;
  7 hours ago via mobile · Like · 1
  
  
  L Andriana Hartono heheh ok deh See All ,.. ini yg saya buat :
  ini buat variabel global(utama) biar gampang setting nya
  
  var
  xawal,yawal,alebar,spasi:integer;
  
  //inisialisasi variabel
  procedure TForm1.FormCreate(Sender: TObject);
  begin
  xawal:=2;
  yawal:=50;
  alebar:=200;
  spasi:=5;
  end;
  
  //ini buat bikinnya
  procedure TForm1.Button1Click(Sender: TObject);
  var s:TListBox;
  begin
  s:=TListBox.Create(nil);
  s.Left:=xawal;
  s.Top:=yawal;
  s.Width:=alebar;
  s.Visible:=true;
  xawal:=xawal+spasi+alebar;
  s.Parent:=self
  end;
  7 hours ago · Unlike · 3
  
  
  Imam Chalimi Bin Moeslim maaf koreksi sedikit,
  rubah s:=TListBox.Create(nil); menjadi s:=TListBox.Create(Self);
  dengan tujuan bila form ditutup komponen yg di create juga dibebaskan, sehingga tidak mendatangkan tamu tidak diundang (access violation)
  7 hours ago via mobile · Unlike · 6
  
  
  L Andriana Hartono sip deh mas Imam terima kasih
  7 hours ago · Like · 2
  
  
  L Andriana Hartono ini tambahan buat validasi lebar dan tinggi nya bang Koko
  
  var
  Form1: TForm1;
  xawal,yawal,alebar,spasi,tinggi:integer;
  implementation
  
  {$R *.dfm}
  
  procedure TForm1.Button1Click(Sender: TObject);
  var s:TListBox;
  begin
  if (xawal<form1.Width-alebar)then
  begin
  s:=TListBox.Create(self);
  s.Left:=xawal;
  s.Top:=yawal;
  s.Width:=alebar;
  s.Visible:=true;
  s.Height:=tinggi;
  xawal:=xawal+spasi+alebar;
  s.Parent:=self;
  end
  else if yawal<(form1.Height-tinggi-s.Height-tinggi) then
  begin
  yawal:=yawal+5+tinggi;
  xawal:=2;
  end
  else ShowMessage('dah mentok mas maaf ya');
  end;
  
  procedure TForm1.FormCreate(Sender: TObject);
  begin
  xawal:=2;
  yawal:=50;
  alebar:=200;
  spasi:=5;
  tinggi:=100;
  end;
  6 hours ago · Like

Visual Representation of SQL Joins

Introduction

This is just a simple article visually explaining SQL JOINs.

Background

I'm a pretty visual person. Things seem to make more sense as a picture. I looked all over the Internet for a good graphical representation of SQL JOINs, but I couldn't find any to my liking. Some had good diagrams but lacked completeness (they didn't have all the possible JOINs), and some were just plain terrible. So, I decided to create my own and write an article about it.

Using the code

I am going to discuss seven different ways you can return data from two relational tables. I will be excluding cross Joins and self referencing Joins. The seven Joins I will discuss are shown below:

1. INNER JOIN
2. LEFT JOIN
3. RIGHT JOIN
4. OUTER JOIN
5. LEFT JOIN EXCLUDING INNER JOIN
6. RIGHT JOIN EXCLUDING INNER JOIN
7. OUTER JOIN EXCLUDING INNER JOIN

For the sake of this article, I'll refer to 5, 6, and 7 as LEFT EXCLUDING JOIN, RIGHT EXCLUDING JOIN, and OUTER EXCLUDING JOIN, respectively. Some may argue that 5, 6, and 7 are not really joining the two tables, but for simplicity, I will still refer to these as Joins because you use a SQL Join in each of these queries (but exclude some records with a WHERE clause).

Inner JOIN

This is the simplest, most understood Join and is the most common. This query will return all of the records in the left table (table A) that have a matching record in the right table (table B). This Join is written as follows:

Collapse | Copy Code

SELECT <select_list> 
FROM Table_A A
INNER JOIN Table_B B
ON A.Key = B.Key

Left JOIN

This query will return all of the records in the left table (table A) regardless if any of those records have a match in the right table (table B). It will also return any matching records from the right table. This Join is written as follows:

Collapse | Copy Code

SELECT <select_list>
FROM Table_A A
LEFT JOIN Table_B B
ON A.Key = B.Key

Right JOIN

This query will return all of the records in the right table (table B) regardless if any of those records have a match in the left table (table A). It will also return any matching records from the left table. This Join is written as follows:

Collapse | Copy Code

SELECT <select_list>
FROM Table_A A
RIGHT JOIN Table_B B
ON A.Key = B.Key

Outer JOIN

This Join can also be referred to as a FULL OUTER JOIN or a FULL JOIN. This query will return all of the records from both tables, joining records from the left table (table A) that match records from the right table (table B). This Join is written as follows:

Collapse | Copy Code

SELECT <select_list>
FROM Table_A A
FULL OUTER JOIN Table_B B
ON A.Key = B.Key

Left Excluding JOIN

This query will return all of the records in the left table (table A) that do not match any records in the right table (table B). This Join is written as follows:

Collapse | Copy Code

SELECT <select_list> 
FROM Table_A A
LEFT JOIN Table_B B
ON A.Key = B.Key
WHERE B.Key IS NULL

Right Excluding JOIN

This query will return all of the records in the right table (table B) that do not match any records in the left table (table A). This Join is written as follows:

Collapse | Copy Code

SELECT <select_list>
FROM Table_A A
RIGHT JOIN Table_B B
ON A.Key = B.Key
WHERE A.Key IS NULL

Outer Excluding JOIN

This query will return all of the records in the left table (table A) and all of the records in the right table (table B) that do not match. I have yet to have a need for using this type of Join, but all of the others, I use quite frequently. This Join is written as follows:

Collapse | Copy Code

SELECT <select_list>
FROM Table_A A
FULL OUTER JOIN Table_B B
ON A.Key = B.Key
WHERE A.Key IS NULL OR B.Key IS NULL

Examples

Suppose we have two tables, Table_A and Table_B. The data in these tables are shown below:

Collapse | Copy Code

TABLE_A
  PK Value
---- ----------
   1 FOX
   2 COP
   3 TAXI
   6 WASHINGTON
   7 DELL
   5 ARIZONA
   4 LINCOLN
  10 LUCENT

TABLE_B
  PK Value
---- ----------
   1 TROT
   2 CAR
   3 CAB
   6 MONUMENT
   7 PC
   8 MICROSOFT
   9 APPLE
  11 SCOTCH

The results of the seven Joins are shown below:

Collapse | Copy Code

-- INNER JOIN
SELECT A.PK AS A_PK, A.Value AS A_Value,
       B.Value AS B_Value, B.PK AS B_PK
FROM Table_A A
INNER JOIN Table_B B
ON A.PK = B.PK

A_PK A_Value    B_Value    B_PK
---- ---------- ---------- ----
   1 FOX        TROT          1
   2 COP        CAR           2
   3 TAXI       CAB           3
   6 WASHINGTON MONUMENT      6
   7 DELL       PC            7

(5 row(s) affected)

Collapse | Copy Code

-- LEFT JOIN
SELECT A.PK AS A_PK, A.Value AS A_Value,
B.Value AS B_Value, B.PK AS B_PK
FROM Table_A A
LEFT JOIN Table_B B
ON A.PK = B.PK

A_PK A_Value    B_Value    B_PK
---- ---------- ---------- ----
   1 FOX        TROT          1
   2 COP        CAR           2
   3 TAXI       CAB           3
   4 LINCOLN    NULL       NULL
   5 ARIZONA    NULL       NULL
   6 WASHINGTON MONUMENT      6
   7 DELL       PC            7
  10 LUCENT     NULL       NULL

(8 row(s) affected)

Collapse | Copy Code

-- RIGHT JOIN
SELECT A.PK AS A_PK, A.Value AS A_Value,
B.Value AS B_Value, B.PK AS B_PK
FROM Table_A A
RIGHT JOIN Table_B B
ON A.PK = B.PK

A_PK A_Value    B_Value    B_PK
---- ---------- ---------- ----
   1 FOX        TROT          1
   2 COP        CAR           2
   3 TAXI       CAB           3
   6 WASHINGTON MONUMENT      6
   7 DELL       PC            7
NULL NULL       MICROSOFT     8
NULL NULL       APPLE         9
NULL NULL       SCOTCH       11

(8 row(s) affected)

Collapse | Copy Code

-- OUTER JOIN
SELECT A.PK AS A_PK, A.Value AS A_Value,
B.Value AS B_Value, B.PK AS B_PK
FROM Table_A A
FULL OUTER JOIN Table_B B
ON A.PK = B.PK

A_PK A_Value    B_Value    B_PK
---- ---------- ---------- ----
   1 FOX        TROT          1
   2 COP        CAR           2
   3 TAXI       CAB           3
   6 WASHINGTON MONUMENT      6
   7 DELL       PC            7
NULL NULL       MICROSOFT     8
NULL NULL       APPLE         9
NULL NULL       SCOTCH       11
   5 ARIZONA    NULL       NULL
   4 LINCOLN    NULL       NULL
  10 LUCENT     NULL       NULL

(11 row(s) affected)

Collapse | Copy Code

-- LEFT EXCLUDING JOIN
SELECT A.PK AS A_PK, A.Value AS A_Value,
B.Value AS B_Value, B.PK AS B_PK
FROM Table_A A
LEFT JOIN Table_B B
ON A.PK = B.PK
WHERE B.PK IS NULL

A_PK A_Value    B_Value    B_PK
---- ---------- ---------- ----
   4 LINCOLN    NULL       NULL
   5 ARIZONA    NULL       NULL
  10 LUCENT     NULL       NULL
(3 row(s) affected)

Collapse | Copy Code

-- RIGHT EXCLUDING JOIN
SELECT A.PK AS A_PK, A.Value AS A_Value,
B.Value AS B_Value, B.PK AS B_PK
FROM Table_A A
RIGHT JOIN Table_B B
ON A.PK = B.PK
WHERE A.PK IS NULL

A_PK A_Value    B_Value    B_PK
---- ---------- ---------- ----
NULL NULL       MICROSOFT     8
NULL NULL       APPLE         9
NULL NULL       SCOTCH       11

(3 row(s) affected)

Collapse | Copy Code

-- OUTER EXCLUDING JOIN
SELECT A.PK AS A_PK, A.Value AS A_Value,
B.Value AS B_Value, B.PK AS B_PK
FROM Table_A A
FULL OUTER JOIN Table_B B
ON A.PK = B.PK
WHERE A.PK IS NULL
OR B.PK IS NULL

A_PK A_Value    B_Value    B_PK
---- ---------- ---------- ----
NULL NULL       MICROSOFT     8
NULL NULL       APPLE         9
NULL NULL       SCOTCH       11
   5 ARIZONA    NULL       NULL
   4 LINCOLN    NULL       NULL
  10 LUCENT     NULL       NULL

(6 row(s) affected)

Note on the OUTER JOIN that the inner joined records are returned first, followed by the right joined records, and then finally the left joined records (at least, that's how my Microsoft SQL Server did it; this, of course, is without using any ORDER BY statement).
You can visit the Wikipedia article for more info here (however, the entry is not graphical).
I've also created a cheat sheet that you can print out if needed. If you right click on the image below and select "Save Target As...", you will download the full size image.

History

• Initial release -- 02/03/2009.
• Version 1.0 -- 02/04/2009 -- Fixed cheat sheet and minor typos.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

About the Author

C.L. Moffatt

[Video - Tutorial] Absolute Database in Delphi XE3

Absolute Database is a Delphi database engine which lets you forget the Borland Database Engine (BDE). This BDE replacement is the compact, high-speed, robust and easy-to-use database engine:

Key Features: No BDE; no DLLs Single-file database SQL'92 (DDL & DML) support Compatible with standard and third-party database controls Single-user and multi-user mode (file-server) Works great on all versions of Windows - from 98 to Vista, doesn't require any updates or service packs Ultra-fast in-memory tables Unmatched ease-of-use Strong encryption BLOB compression Free for personal use Full source code available Royalty-free distribution

New Delphi Twain component

This Delphi Twain modified by Kluug.net is the unicode - enabled successor of Delphi Twain library by Gustavo Gaud which hasn't been updated since 2004.

The library allows you to easily access scanning functions from Delphi 6, 7, 2007, 2009, 2010, XE, XE2, XE3 and also from Lazarus.

Library design

• Full html help for the component classes. The library is able to fully access Twain capabilities.
• Acquiring images is easy as a few line codes
• Direct access to various twain features
• Showcases making it easy to learn

Installation

I included packages for Delphi XE2, but there is no need to install them. You can easily use Delphi Twain from the source code. Just add the source code directory to your library path.
An experienced user will definitely be able to create packages for other Delphi versions.

License

He couldn't find any license information of the original DelphiTwain library, so I decided to license my modified library (starting from version 1.1) under:
MPL / GPL / LGPL.
The library is initially created by © Gustavo Daud and modified by Nemeth Peter and vcldeveloper.

Original versions

• Original code: delphitwain.sourceforge.net
• Unicode modifications: stackoverflow.com/questions/2059343/twain-scanning-components-for-delphi

 Please be sure you check the license information before downloading any of the files below.

Libraries with full source code

• Delphi Twain by Kluug.net 1.1 (delphitwain-kluug-1-1--2012-12-06.zip)

http://www.kluug.net/delphitwain.php

FreePascal/Lazarus Ebook

Ebook Lazarus / Freepascal berbahasa Inggris untuk newbie.


Introduction

Buku ini ditulis untuk programmers yang ingin mempelajari Object Pascal Language. Buku ini cocok untuk para programmer and non-programmers.
It illustrates programming techniques as general in addition to Object Pascal Language.
License:
License of this book is Creative Commons.

Chapters:

1. Language Basics
2. Structured Programming
3. GUI
4. Object Oriented Programing

Download PDF
Download Book Examples
License: Creative commons

Delphi SMSgateway Sourcecode

Filename	Size
03509288smsdemo_delphi.rar	203 KB
04563522Delphicuankoutouxinshilidaohang.rar	9.6 MB
09627989SendSMS.rar	251 KB
14019764sms.rar	253 KB
168339SpcommSMS.rar	284 KB
26904256mobile_Bomb.rar	218 KB
43728622004062215563318875.rar	12 KB
464280��ͨ����ƽ̨Դ����.rar	16 KB
49635882agamem_sms.rar	224 KB
52167887dll.rar	245 KB
650540sms_COM_test_LUDEHAI.rar	11 KB
661587174wavecom_soft.rar	293 KB
74237987Delphi.rar	505 KB
773699205itlongxin_SendSMS.rar	553 KB
863770805FHSMS.rar	375 KB
984982806GSM.zip	56 KB
987078302SMS_SDK2.0.rar	1.3 MB
CRACK - Delphi-SMS-Modem.rar	531 KB
sms DELPHI VCL.rar	239 KB

19 files (15.1 MB)

DOWNLOAD

Sourcecode delphi sms gateway

Buku Mudah SMS Gateway Dengan Delphi 7

Bagi anda praktisi, mahasiswa, pelajar ,  maupun kalangan awam yang ingin belajar cara pembuatan aplikasi SMS gateway dengan delphi, anda dapat mempelajari
 Buku Membuat SMS Gateway dengan Delphi 7 sebagai referensinya

Secara teknis Buku ini di rancang sedemikian rupa supaya pembaca lebih mudah untuk memahami materi (semoga aja demikian ya …he he he), dan dilengkapi dengan flowchart dan contoh program supaya pembaca lebih terasah kemampuan programmingnya.

Contact Person 085787677544 Fajar Priyadi

Demikian flash info dari saya, semoga buku ini bermanfaat bagi masyarakat Indonesia dan menambah wawasan dunia IT kepada pelajar dan mahasiswa yang haus akan ilmu dan pengetahuan praktis. Oya, buku ini dilengkapi CD, jadi semua contoh program dan file dependency (installer, komponen Delphi, library, unit tambahan) ada di sini.