من يستطيع ان يأتي بافضل من هذا الكود لحذف الفراغات

function DeleteSpaces(S: String): string;
begin
 Result:= Stringreplace(S,' ','',[rfReplaceAll]);;
end;

من يجد أقصر ؟ :D

أعتقد أن الكود الثاني سيحذف جميع المسافات حتى و لو كانت في وسط الstring و ليست في أوله أو في آخره

جرب هذا فهذا أقصر و أضمن

var s : string;
s:='   Delphi   ';
s := Trim(s);

bashmohandes كتب:

أعتقد أن الكود الثاني سيحذف جميع المسافات حتى و لو كانت في وسط الstring و ليست في أوله أو في آخره

←

أخي bashmohandes

كلام صحيح لو كانت String تحتوي على كلمات

لكن أخي waeldalol لم يقل جملة

و إنما كلمة واحدة

يبقى مسألة السرعة :D

Trim أسرع من StringReplace

اخي DeltaAziz يبدو اني اخطأت في التعبير

المقصود هو جملة و ليس كلمة واحدة و إلا لا معنى من وجود بداية و نهاية الكلمة

هذا مثال اعددته في الثلاثة حالات مع المقارنة بين الاوقات في كل من الحالات التالية

يضع في بداية و نهاية الجملة 10000 فراغ و يقوم بحذفها

جربو و اعطوني النتائج و لكن اعند اول مرة من تشغيل البرنامج وليس بعد عدة محاولات

نتائج حاسبي

وقت التعبئة: 437

وقت حذف الفراغات Wael Dalol = 406

وقت حذف الفراغات bashmohandes = 0 :(

اظن ان هناك مشكلة في الكود الذي كتبته و لم استطع حلها

يا ترى من الفائز :blink: :lol:

حذف الفراغات.zip

اقتباس

اظن ان هناك مشكلة في الكود الذي كتبته و لم استطع حلها

طبعا المقصود هو DeltaAziz

أنت كتبت

Stringreplace(S,' ','',[rfReplaceAll]);

لكن الأصح هو

S:=Stringreplace(S,' ','',[rfReplaceAll]);

StringReplace Function و ليست Procedure

المهم مقصودك هو جملة و ليس كلمة إذن StringReplace لا تنفع لأنها تغير كل الفراغات بلاشي

و كما كتبت Trim أسرع :D

معك حق انا ما انتبهت انه Function

و استخدمته على انه Procedure

بس Trim معمول 100%

هل رأيت الكود تبع التابع Trim يعني معمول بطريقة رائعة جدا

هو الواحد شلون ممكن يوصل الى كتابة كود بافضل طريقة ممكنة

هل بالتجريب :rolleyes:

وهذا مثال أخر

function trim(const Search: string): string;
var
   Index: byte;
begin
   Index:=1;
   while (Index <= Length(Search)) and not (Search[Index] in BlackSpace) do
      Index:=Index + 1;
   Result:=Copy(Search, Index, 255);
   Index:=Length(Result);
   while (Index > 0) and not (Result[Index] in BlackSpace) do
      Index:=Index - 1;
   Result:=Copy(Result, 1, Index);
end;

لتسريع الدوال أكثر يمكن الجوء لكتابتها بلغة التجميع

لا اريد التعمق كثيرا في هذا المجال التابع Trim وفى و اكثر

ولكن في حال التعامل مع قواعد بيانات هل يجب علي ان اعمل Trim على كل حقل

قبل الحقظ

ام هناك طريقة افضل لمنع ادخال فراغات في بداية الكلمة و نهايتها

اذ لا معنى لوجود فراغات في بداية و نهاية اي بيانات مخزنة

فاريد حذف الفراغت من البداية و النهاية اذا اخطأ المستخدم و ادخل اي فراغ