بما انه غير منطقي هل يوجد كود بدييل
![[صورة: 489cb7eb18171.png]](http://www.3rbz.com/uploads/489cb7eb18171.png)
كلام صحيح انا افعل هكذا بل vb.net
الان قلي لماذا يحدث الخطأ اعتقد انا ثقلت عليك واخذت من وقتك
اخي عندما اضع هذا الكود
uses Windows,functions;
يعمل كمبايل بصورة صحيحة وما في اي مشكلة لكن عند تغيره الى
uses Windows,SysUtils,functions;
لا يعمل الكمبايل ويكون خط احمر كما موضح في الصورة السابقة
يعني الخطأ عند SysUtils ؟
تاكد من ان دلفي مثبت كامل او على الاقل الوجدة SysUtils موجودة
نعم كامل والوحدة تعمل جيدااا اذا ما طبقت هذا الكود
كود :
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.
[size=medium]لم افهم ؟ [/size]
[size=medium]هل أنت تقوم بتشفير سيرفر او ماشابه ؟ [/size]
إقتباس :هل أنت تقوم بتشفير سيرفر او ماشابه ؟
الاخ يعبث ب LiOn Polymorphic. Crypter
هههه هذا صحيح أستاذ عبد العزيز
