+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: سورس کد تابع split (دلفی) (/showthread.php?tid=2343)
سورس کد تابع split (دلفی) - Amin_Mansouri - 05-30-2012
تابع 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;