07-10-2013، 01:11 PM
(آخرین تغییر در ارسال: 07-10-2013، 01:15 PM توسط Z4R4THUSTR4.)
کد پیاچپی:
function SpChar(InStr:string):string;
var
c1:integer;
St:string;
begin
for c1 := 1 to Length(InStr) do
begin
if c1<>Length(Instr) then St := '_' else St :='';
Result:=Result+InStr[c1]+St;
end;
end;
سوال اولت رو اصلا متوجه نشدم
The one way in the world and it is the right way. (Zarathustra)