Başlangıç > Kodlar > Delphi ile Bilgilerin diziye kaydedilmesi ve momolara yazdırılması

Delphi ile Bilgilerin diziye kaydedilmesi ve momolara yazdırılması

Editlerdeki bigiler kaydet butonuna tıklanınca diziye kaydediliyor ve ada veya T. numarasına göre listeleniyor.
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
ListBox1: TListBox;
ListBox2: TListBox;
ListBox3: TListBox;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
procedure Edit1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
s,don:integer;
dizi:array[1..100,1..3] of string;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
var
OldStart : Integer;
begin
With Edit1 do
if Text <> " then
begin
OnChange := NIL;
OldStart := SelStart;
Text := UpperCase(Copy(Text,1,1))+
LowerCase(Copy(Text,2,Length(Text)));
SelStart := OldStart;
OnChange := Edit1Change;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
s:=s+1;
dizi[s,1]:=edit1.Text;
dizi[s,2]:=edit2.Text;
dizi[s,3]:=edit3.Text;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
s:=1;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
ad:string;
asd:word;
begin
ad:=inputbox('ADINIZI GİRİNİZ','AD GİRİŞİ',");
for asd:=1 to s do
begin
if ad=dizi[asd,1] then
begin
listbox1.Items.Add(dizi[asd,1]);
listbox2.Items.Add(dizi[asd,2]);
listbox3.Items.Add(dizi[asd,3]);
end;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
tel:string;
begin
tel:=inputbox('TELEFONU GİRİNİZ','Telefon Girişi',");
for don:=1 to s do
begin
if tel=dizi[don,3] then
begin

listbox1.Items.Add(dizi[don,1]);
listbox2.Items.Add(dizi[don,2]);
listbox3.Items.Add(dizi[don,3]);
end;
end;
end;

Çağlar UYSAL


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: