تصحيح كود الاستبادل - نسخة قابلة للطباعة

تصحيح كود الاستبادل - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تصحيح كود الاستبادل (/showthread.php?tid=7427)

الصفحات: 1 2 3

RE: تصحيح كود الاستبادل - hosthv - 24-01-2016

بما انه غير منطقي هل يوجد كود بدييل Huh

RE: تصحيح كود الاستبادل - محمد عبد العزيز - 24-01-2016

إقتباس :بما انه غير منطقي هل يوجد كود بدييل

لا اتحدث عن الكود فهذا عليك ان تتعلم بنفسك
اتحدث عن الفكرة، تغيير كل حرف a ب x
حتى تعمل يجب القيام بالعكس مسبقا وتغيير كل حرف x ب a
ما هو غير منطقي ان النص قد يحتوي حرف a قبل التغيير فكيف تفرق بينه وبين حرف x غير الى a ؟

RE: تصحيح كود الاستبادل - hosthv - 24-01-2016

كلام صحيح انا افعل هكذا بل vb.net
الان قلي لماذا يحدث الخطأ اعتقد انا ثقلت عليك واخذت من وقتك Confused

RE: تصحيح كود الاستبادل - محمد عبد العزيز - 24-01-2016

إقتباس :الان قلي لماذا يحدث الخطأ

أي خطأ ؟ دائما اذكر الخطأ (نص وليس صورة)

RE: تصحيح كود الاستبادل - hosthv - 24-01-2016

اخي عندما اضع هذا الكود
uses Windows,functions;
يعمل كمبايل بصورة صحيحة وما في اي مشكلة لكن عند تغيره الى
uses Windows,SysUtils,functions;
لا يعمل الكمبايل ويكون خط احمر كما موضح في الصورة السابقة

RE: تصحيح كود الاستبادل - محمد عبد العزيز - 24-01-2016

يعني الخطأ عند SysUtils ؟
تاكد من ان دلفي مثبت كامل او على الاقل الوجدة SysUtils موجودة

RE: تصحيح كود الاستبادل - hosthv - 24-01-2016

نعم كامل والوحدة تعمل جيدااا اذا ما طبقت هذا الكود

كود :
unit Unit1;

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

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  xxxxxxxx, zaid : string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

  xxxxxxxx := 'aaaaaaaaaaaaa';
  zaid:= StringReplace(xxxxxxxx, 'a', 'x',[rfReplaceAll, rfIgnoreCase]);

  ShowMessage(zaid);
end;
end.

RE: تصحيح كود الاستبادل - gheislam - 25-01-2016

[size=medium]لم افهم ؟ [/size]

[size=medium]هل أنت تقوم بتشفير سيرفر او ماشابه ؟ [/size]

RE: تصحيح كود الاستبادل - محمد عبد العزيز - 25-01-2016

إقتباس :هل أنت تقوم بتشفير سيرفر او ماشابه ؟

الاخ يعبث ب LiOn Polymorphic. Crypter

RE: تصحيح كود الاستبادل - gheislam - 25-01-2016

هههه هذا صحيح أستاذ عبد العزيز Big Grin