24-08-2013, 10:23 PM
أيضا
PHP كود :
function Split_Str(Text: TStrings; tStart, tStop: Integer): string;
var
I: Integer;
S: string;
SL: TStringList;
begin
SL := TStringList.Create;
try
for I := 0 to Pred(Text.Count) do
begin
S := S + Text[i];
end;
repeat
if Length(S) > tStop then
begin
SL.Add(Copy(S, tStart, tStop));
Delete(S, tStart, tStop);
end
else
begin
SL.Add(S);
Delete(S, tStart, Length(S));
end;
until Length(S) = 0;
finally
Result := SL.Text;
SL.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo2.Text := Split_Str(Memo1.Lines, 1, 20);
end;