Fórum Limitar Cópia Texto Arquivo TXT #363608

procedure TForm1.Button1Click(Sender: TObject);
var oFile: TStrings;
    i, y, iCountChar, iLimite: integer;
    sLine: string;
begin
   iCountChar := 0;
   iLimite := StrToInt(edtLimite.Text);
   Progress.Position := 0;
   Progress.Max := StrToInt(edtLimite.Text);
   Memo1.Clear;

   oFile := TStringList.Create;
   try
      oFile.LoadFromFile(edtFile.Text);

      for i := 0 to oFile.Count - 1 do
      begin

         sLine := EmptyStr;
         for y := 0 to Length(oFile.Strings[i])-1 do
         begin
            Progress.StepBy(1);
            Application.ProcessMessages;

            if iCountChar >= iLimite then
            begin
               Memo1.Lines.Append(sLine);
               exit;
            end;

            sLine := sLine + MidStr(oFile.Strings[i], y, 1);
            Inc(iCountChar);
         end;
         Memo1.Lines.Append(sLine);

      end;

   finally
      oFile.Free;
   end;
end;