03-01-2009, 05:15 PM
الصفحات : 1 2
06-01-2009, 03:56 PM
السلام عليكم و رحمة الله
تم ارفاق الملفات المصدرية للتمرين...
الأوامر التي استعملت هي :
لعمل التشفير... و هو عبارة على عكس الأحرف فقط
اضافة في قائمة الــ Uses الوحدة : StrUtils
;
اما بالنسة للنسخ دون تشفير :
بالتوفيق ان شاء الله
تم ارفاق الملفات المصدرية للتمرين...
الأوامر التي استعملت هي :
لعمل التشفير... و هو عبارة على عكس الأحرف فقط
اضافة في قائمة الــ Uses الوحدة : StrUtils
PHP كود :
StrUtils
PHP كود :
procedure TMain.EncryptBtnClick(Sender: TObject);
var i: integer;
begin
CibleMmo.Clear;
for i := 0 to SourceMmo.Lines.Count - 1 do
begin
CibleMmo.Lines.Add(ReverseString(SourceMmo.Lines.Strings[i]));
end;
end
اما بالنسة للنسخ دون تشفير :
PHP كود :
procedure TMain.CopyBtnClick(Sender: TObject);
var i: integer;
begin
CibleMmo.Clear;
for i := 0 to SourceMmo.Lines.Count - 1 do
begin
CibleMmo.Lines.Add(SourceMmo.Lines.Strings[i]);
end;
end;
بالتوفيق ان شاء الله
07-01-2009, 02:47 AM
STRELiTZIA كتب :لعمل التشفير... و هو عبارة على عكس الأحرف فقطReverseString only
اضافة في قائمة الــ Uses الوحدة : StrUtils
PHP كود :StrUtils
ده انا قعدت 3 ايام احول اعملinstall لل Highlighter :mad:
ولما نزلته كنت زهقت من التمرين .:o :p
01-02-2009, 03:26 PM
04-09-2009, 05:19 PM
الصفحات : 1 2