توابع رشته ای

[بمب منطقی]

با سلام:
من به دو تابعی احتیاج دارم که کارهای زیر رو انجام بده:

1- تعداد کراکترهای یک رشته را تشخیص دهد.
2-به تعداد مشخصی از ابتدای یک رشته به داخل رشته دیگر کپی کند.

با تشکر :flower:

[Delphi Skyline]

مثلا :


var i:integer;s:string;
//in ghesmat baraye fahmidane tedad caracter ast
i:=length(edit1.text);
// in ghesmat baraye copy kardane
s:=copy(edit1.text,0,3);




امیدوارم کمکت کنه.
بای........

[RezaJP]

از توابع زیر هم میتونی استفاده کنی البته باید StrUtils رو تو uses اضافه کنی




function LeftStr(const AText: string, const ACount: Integer): string;
function MidStr(const AText: string, const AStart: Integer, const ACount: Integer): string;

[بمب منطقی]

خیلی ممنون که یادآوری کردید.

حالا اگه بخوایم یه کراکتر (یا n کراکتر) رو از یک رشته کم کنیم باید از کدوم تابع استفاده کنیم.

[RezaJP]

میتونی از تابع زیر استفاده کنی البته باید مثل بالا StrUtils رو تو uses اضافه کنی


function StringReplace(const S: string, const OldPattern: string, const NewPattern: string, Flags: TReplaceFlags): string;