Eski 12-04-04, 19:07 #41
Sessiz_cin Sessiz_cin çevrimdışı

bynogame
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

bynogame
Vankedisi Label1.caption yerine memo2.text uyarlaman gerek okadar
2 button 2 memo koy form a

function Sifrele(const Value : String) : String;
var
CharIndex : Integer;
ReturnValue : String;
begin
ReturnValue := '';
for CharIndex := 1 to Length(Value) do
begin
if copy(value,charindex,1)='a' then
begin
ReturnValue := ReturnValue + 'c'; //iste burda a=c oluyor

end;

if copy(value,charindex,1)='b' then
begin
ReturnValue := ReturnValue + '2'; // b=2 her harfi böyle eşitle büyük küçük harf önemli

end;

Result := ReturnValue;
end;
end;
procedure TForm1.Button1Click(Sender: TObject); // button 1
begin
Memo2.text:=sifrele('memo1.text');// memo1 deki yazıyı şifreleyip memo2 ye aktarır
end;

tam tersini yaparakta çözersin

function Coz(const Value : String) : String;
var
CharIndex : Integer;
ReturnValue : String;
begin
ReturnValue := '';
for CharIndex := 1 to Length(Value) do
begin
if copy(value,charindex,1)='c' then
begin
ReturnValue := ReturnValue + 'a'; //iste burda c=a oluyor

end;

if copy(value,charindex,1)='2' then
begin
ReturnValue := ReturnValue + 'b'; // 2=b her harfi böyle eşitle şifrelemede kullanığının tersi olarak büyük küçük harf gine önemli

end;

Result := ReturnValue;
end;
end;
//kullanımı
procedure TForm1.Button2Click(Sender: TObject); Button 2
begin
memo1.text:=Coz(memo2.text);// memo2 deki şifreli yazıyı memo1 e aktarır
end;
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 12-04-04, 21:45 #42
vankedisi vankedisi çevrimdışı

bynogame
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

bynogame
sessiz_cin sağolasın senin sayende uzun zamandır istediğim bir programı yaptım sonunda
verdiğin kodlar bu haliyle çalışmadı ve ufak bir kaç değişiklik yapmam gerekti.
sağolasın Allah senden razı olsun....
kodları başkalarına da lazım olabiir diye buraya yazıyorum.



unit Unit1;

interface

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

type
TForm1 = class(TForm)
Memo1: TMemo;
Memo2: TMemo;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
function Sifrele(const Value : String) : String;
var
CharIndex : Integer;
ReturnValue : String;
begin
ReturnValue := '';
for CharIndex := 1 to Length(Value) do
begin
if copy(value,charindex,1)='a' then
begin
ReturnValue := ReturnValue + 'c'; //iste burda a=c oluyor

end;

if copy(value,charindex,1)='b' then
begin
ReturnValue := ReturnValue + '2'; // b=2 her harfi böyle eşitle büyük küçük harf önemli

end;

Result := ReturnValue;
end;
end;




function Coz(const Value : String) : String;
var
CharIndex : Integer;
ReturnValue : String;
begin
ReturnValue := '';
for CharIndex := 1 to Length(Value) do
begin
if copy(value,charindex,1)='c' then
begin
ReturnValue := ReturnValue + 'a'; //iste burda c=a oluyor

end;

if copy(value,charindex,1)='2' then
begin
ReturnValue := ReturnValue + 'b'; // 2=b her harfi böyle eşitle şifrelemede kullanığının tersi olarak büyük küçük harf gine önemli

end;

Result := ReturnValue;
end;
end;
//kullanımı

procedure TForm1.Button1Click(Sender: TObject); // button 1
begin
Memo2.text:=sifrele(memo1.text); // memo1 deki yazıyı şifreleyip memo2 ye aktarır
end;

procedure TForm1.Button2Click(Sender: TObject); // Button 2
begin
memo1.text:=Coz(memo2.text);// memo2 deki şifreli yazıyı memo1 e aktarır
end;




end.
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 12-04-04, 23:48 #43
Sessiz_cin Sessiz_cin çevrimdışı

bynogame
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

bynogame
Yazdığım kodda yanlış olupda çalışmayıp değiştirdiğin yeri anlamadım comple source kod değil zaten werdiğim yani direct c/p değil form1 ekliyeceksin ...
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 13-04-04, 02:43 #44
vankedisi vankedisi çevrimdışı

bynogame
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

bynogame
ya öyle ahım şahım değişiklikler yapmadım.bende delphi 7 var belki de versiyon farklılığı olabilir.(bilmiyordum; kodların hepsini c/p yaptım bir daha lazım olursa sadece form1 eklerim ok.)

procedure TForm1.Button2Click(Sender: TObject); Button 2 satrında hata verdi burda
procedure TForm1.Button2Click(Sender: TObject); //Button 2 , yaptım

memo 1 deki yazıyı memo 2 ye şifrelemiyordu
Memo2.text:=sifrele('memo1.text');// memo1 deki yazıyı şifreleyip memo2 ye aktarır satırını
Memo2.text:=sifrele(memo1.text);// memo1 deki yazıyı şifreleyip memo2 ye aktarır, yaptım

delphiye yeni başladım.kodları daha yeni öğreniyorum.bu topiği takip ederek senin bilgilerinden faydalanacağım.yardımların için teşekkürler sessiz_cin.
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 13-04-04, 03:30 #45
Sessiz_cin Sessiz_cin çevrimdışı

bynogame
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

bynogame
Yok delphi 7 ile alakası yok ilk örnekte metin girmiştim ikincide memo2 daldınlıktan tırnakları unutmuşum normal yane hata wermesi vize haftam şuan uykusuzluktan doğal karşıla, hiç önemi yok gine takıldığın yerde yardımcı olurum
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 13-04-04, 10:02 #46
arachnida arachnida çevrimdışı

bynogame
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

bynogame
Sessiz_cin elinden geleni yapmıssın burayı boş bırakmamıssın ben yokken kardeş ellerin dert görmesin sağolasın bende bu gün yazılan mesajları görüp utana sıkıla girmiştim gördümkü sen yardımcı olmussun
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 13-04-04, 13:01 #47
vankedisi vankedisi çevrimdışı

bynogame
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

bynogame
arkadaşlar sağolun hayırlı işler yapıyorsunuz.
Şimdi ben öğrenme aşamasında olan biri olarak döküman arıyorum.
(C_a_n_e_r in iki dökümanını ve kimin yazdığını bilmediğim delphi 5'e giriş isimli bir ekitapı okudum.) delphi forumlarını da takip ediyorum.bana bunların dışında tavsiye edeceğiniz döküman, ekitap vs varmı.
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 13-04-04, 16:59 #48
arachnida arachnida çevrimdışı

bynogame
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

bynogame
arkadaşım sana tavsiyem delphiturk codebank indir çok güzel kod örnekleri var gittiğin yol çok güzel inşallah başarılı olursun ayrıca ilk olarak kendi kafanda bir şey düşün mesela ben bir bakkalın işlemlerini tutucam git bakkal amcadan işlerin nasıl yürüdüğünü öğren sonra bunu mantık olarak bilgisayara nasıl aktarırım diye düşün daha sonra yazmaya başla ilk başta çok sıkılıacaksın belki ama ortaya bir şeyler çıkmaya başlayınca programcılıktan zevkli iş yoktur
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 21-04-04, 21:44 #49
gangsta-crazy gangsta-crazy çevrimdışı

bynogame
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

bynogame
selam, delphi 6 enterprise kurdum. proglamlamayla ilgileniyorum, biraz ingilizcem var. help'ten işi götürebileceğimi düşünmüştüm, zor gidiyor, wizardlar işe yaramıyor. componentlerin açıklamaları yetersiz, kod yazmaya dair çok bilgim yok, ve en önemlisi, kavramları bilmiyorum. çok basit bir deneme yapmak istedim; database'li bişeyler yapmak istedim, tabiiki bilgisizlikle iş yürümüyor. neyse; sanırım, nete bağlanması gerekti; ama bağlanmadı, ayrıca; neden internete bağlanır?, bu nasıl iş, gereği nedir.
basit, local bir database yapayım istedim, o da yürümedi. şu an, helpten, object pascal dilini okuyorum, anlamaya çalışıyorum. sandım ki, delphi de kod yazmaya gerek yok, onu al forma indir, bunu al ekle, rahat bi şekilde düzenle, sonra program bir derlesin, işler yürüsün. tabii ki olmadı.
sonuç; database kullanarak, internetle ilgili bir program yazmak istiyorum. bir tanımlama yapamıyorum, belki sen bir yön verebilirsin, ve anladığın gibi, çok yeniyim.tembel ve bilgiye açım. saygılar...
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 22-04-04, 14:15 #50
arachnida arachnida çevrimdışı

bynogame
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

bynogame
arakdaşım önce uygulamayı ne yönde geliştireceğini söyleye bilirmisin yani ne yazmak istiyorsun eğer onu belirtirsen sana daha kolay yardım edebilirim. Ayrıca tembellik ve bigliye açlık hiç bir şeyi değiştirmez eğer delphi veya herhangi bir programlama aracında çalışırken eğer istediklerini yapamazsan bu seni çok sıkar ve soğursun ama ufakta olsa bir şeyler yapmaya başlarsan bu sana çok azim verir
sen ne yapmak istediğini anlat bizlerde sana yardımcı olalım
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 28-05-07, 00:53 #51
mehmetcanfb mehmetcanfb çevrimdışı

bynogame
Varsayılan C: delphi ve asp için soru sorabilirsiniz

bynogame
arkadasım bana acill olarak delphide bir tarih girdigimizde onu bize hatırlayacak kod lazım yardımcı olursanız cok sevinirim
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 29-05-07, 03:04 #52
leader_boy20 leader_boy20 çevrimdışı

bynogame
Varsayılan C: delphi ve asp için soru sorabilirsiniz

bynogame
arkadaşım delpide görüntüyü nasıl kaydedebilirim projeömde son aşamadayım yardımcı olursaan sevinirim.şimdiden saol
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 03-11-09, 13:00 #53
kad_akb kad_akb çevrimdışı

bynogame
Varsayılan C: delphi ve asp için soru sorabilirsiniz

bynogame
Alıntı:
Gerçek Mesajı Gönderen arachnida Mesajı Göster
delphi ve asp için her türlü sorularınızı bekliyorum
mrb öncelikle bu tarz paylaşımlar için çok teşekkür ederimmm... eğer benim soruma da cevap verirseniz çok sevinirim vermezisenizde canınız sağolsunn
sorum şu ..
bi web sayfası yapıyorum
master detail page ile sıralanmaış konu başlıklarım var bunlara tıkladnığında kendi ıd sine ait ayrıntılı bilgileri çıkıyoo orada bi sorun yok fakat ben bu konular için yorum ve puanlama yapmak istiyorum aspde yazıyorum bu arada 2003 acces veritabanını kullanıyorum.. konu tablolarında yorum puan die kolonlar var fkat başka bir yorum ekleyince mantıkende eski yorum kayboyu yenisi gelioo puanlama içinde aynı sorunu yaşıyorumm nasıl bir yol izlemeliyim acaba yardımcı olursanız çok memnun kalırım....
çok teşekkürler herşey için
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 29-12-09, 21:53 #54
lone lone çevrimdışı

bynogame
Varsayılan C: delphi ve asp için soru sorabilirsiniz

bynogame
merhaba ben websitemi program içinde göstermek istiyorum nasıl yapacagım.
programı bilgisayarına indirecek olan kişi programa eklediğim sayfaları görecek.
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Cevapla

Bu konunun kısa yolunu aşağıdaki sitelere ekleyebilirsiniz

Konu Araçları

Gönderme Kuralları
Yeni konu açamazsınız
Cevap yazamazsınız
Dosya gönderemezsiniz
Mesajlarınızı düzenleyemezsiniz

BB code is Açık
Smiley Açık
[IMG] kodu Açık
HTML kodu Kapalı



Tüm saatler GMT +3. Şuan saat: 06:47
(Türkiye için artık GMT +3 seçilmelidir.)

 
5651 sayılı yasaya göre forumumuzdaki mesajlardan doğabilecek her türlü sorumluluk yazan kullanıcılara aittir. Şikayet Mailimiz. İçerik, Yer Sağlayıcı Bilgilerimiz. Tatil


bynogame