تقسيم النص

[SMP3]

أه لقد نسيت ..
ضع شرط للتحقق if Len < n then

كود :

function SplitStr(const AStr: String; n: integer): string; var s, PropStr: PChar; Len, MemLen, i, D: integer; c: char; MemTxt, FTxt, TmpStr: string; begin D := 0; MemTxt := AStr; Len := Length(MemTxt); [COLOR="Red"] if Len < n then Result := AStr;[/COLOR] ..... ..... .....