05-30-2012، 07:37 PM
تابع Split جدا کردن رشته یا استرینگ (دلفی)
کد:
function split(input:string;schar:char;s:integer):string;
var
l : integer;
d : integer;
finish :string;
begin
l :=0;
d :=0;
while (d <= s) and (length(input) >= l) do
begin
l := l + 1 ;
if d = s then
finish := FINISH + copy(input,l,1);
if copy(input,l,1) = schar then
d := d + 1;
end;
split := finish;
end;