كيفية تقسيم الكلمة حرف حرف ؟

[AnoirsoftDeveloper]

السلام عليكم


أود أن أقسم الكلمة(باللغة العربية ) حرف حرف وإدراجها في قاعدة البيانات حرف بعد حرف ؟

[TF6M]

و عليكم السلام و رحمة الله و بركاته
أخي AnoirsoftDevloper , تم التطرق للسؤال في موضوع سابق ...
إستخدم خاصية البحث , راجع هذا الموضوع : تقسيم كلمة
مثال :

كود :

Function _SplitMyWord (TrgStr:String): String; {$IF CompilerVersion >= 17}Inline;{$IFEND} Var i: Byte; Begin For i:= 1 To Length(TrgStr) Do if Result <> '' then Result:= Format('%s , %s',[Result ,TrgStr[i]]) Else Result:= TrgStr[i]; End;

بالتوفيق,,

[Bachirsoft]

هل ينجح الأمر بالنسبة الى الأعداد أي أريد 1735 يعطيني Edit1.Text:=1 و Edit2.Text:=7 و Edit3.Text:=3 و Edit4.Text:=5

[rahiche]

نعم تعامل مع الرقم على انه نص string و ليس ك integer
و في حاتلك الخاصة يمكنك اعطاء كل حرف او رقم في مكون
مثلا
edit1.text := mystring[1]
حيث mystring هو المتغير الذي يحمل القيمة 1735