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;

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.

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 ...

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.

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

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

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ı.

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

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...

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

arkadasım bana acill olarak delphide bir tarih girdigimizde onu bize hatırlayacak kod lazım yardımcı olursanız cok sevinirim

arkadaşım delpide görüntüyü nasıl kaydedebilirim projeömde son aşamadayım yardımcı olursaan sevinirim.şimdiden saol

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

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.