HomeWork_04 تمرين تطبيقي

[STRELiTZIA]

السلام عليكم و رحمة الله

تم ارفاق الملفات المصدرية للتمرين...

الأوامر التي استعملت هي :

لعمل التشفير... و هو عبارة على عكس الأحرف فقط

اضافة في قائمة الــ 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; 


بالتوفيق ان شاء الله