16-11-2010, 10:20 PM
17-11-2010, 03:18 PM
و عليكم السلام و رحمة الله و بركاته
أخي AnoirsoftDevloper , تم التطرق للسؤال في موضوع سابق ...
إستخدم خاصية البحث , راجع هذا الموضوع : تقسيم كلمة
مثال :
بالتوفيق,,
أخي 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;08-10-2017, 11:21 PM
هل ينجح الأمر بالنسبة الى الأعداد أي أريد 1735 يعطيني Edit1.Text:=1 و Edit2.Text:=7 و Edit3.Text:=3 و Edit4.Text:=5
09-10-2017, 12:16 AM
نعم تعامل مع الرقم على انه نص string و ليس ك integer
و في حاتلك الخاصة يمكنك اعطاء كل حرف او رقم في مكون
مثلا
edit1.text := mystring[1]
حيث mystring هو المتغير الذي يحمل القيمة 1735
و في حاتلك الخاصة يمكنك اعطاء كل حرف او رقم في مكون
مثلا
edit1.text := mystring[1]
حيث mystring هو المتغير الذي يحمل القيمة 1735