Copiar parte de un TStringList a otro

[Anel Hernandez]

hola,
estoy corriendo el ejemplo tal cual con 2 ficheros pequeños y con los nombres propuestos y da problemas.

no adiciona lineas, sobreescribe a partir de determinadas lineas adicionada comienza a reescribir lineas anteriores.

adjunto ficheros de ejemplo (p1.txt, p2.txt, total.txt).

sustitui el while por un ciclo de 77 lineas adicionadas y da bien (total77.txt). luego cuando lo intento con 78 da error (total78.txt). llegue a estos numeros por tanteo.

cual es el error?

gracias
A

[ecfisa]

Hola Anel.

En este ejemplo quité todos los ornamentos, genera los 4 archivos de texto, los concatena en otro y muestra el archivo en un memo:

Código Delphi [-]
// Genera los cuatro archivos de texto de ejemplo
procedure TForm1.FormCreate(Sender: TObject);
var
  i, j: Integer;
  f: TextFile;
  s: string;
begin
  for i:= 1 to 4 do
  begin
    AssignFile(f, Format('p%d.txt', [i]));
    ReWrite(f);
    s := StringOfChar(Chr(96+i), 40);  // a, b, c, d
    for j := 1 to 5 do Writeln(f, s);
    CloseFile(f);
  end;
end;

// Concatenar sobreescribiendo
procedure AppendTextFiles(const TargetName: TFileName;
  const SourceNames: array of TFileName);
var
  i      : Integer;
  source,
  target : TextFile;
  row    : string;
begin
  AssignFile(target, TargetName);
  Rewrite(target);
  Append(target);
  for i := Low(SourceNames) to High(SourceNames) do
  begin
    AssignFile(source, SourceNames[i]);
    Reset(source);
    while not Eof(source) do
    begin
      Readln(source, row);
      Writeln(target, row);
    end;
    Close(source);
  end;
  CloseFile(target);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   AppendTextFiles('total.txt', ['p1.txt', 'p2.txt', 'p3.txt', 'p4.txt']);
   Memo1.Lines.LoadFromFile('total.txt');
end;

Salida del ejemplo:
;

[Anel Hernandez]

hola,

el ejemplo funciona perfectamente. El anterior logre que funcionara comentando la linea:

Código Delphi [-]
System.SetTextBuf(source, buffer);

luego cambie las variables buffer y quedo como:

Código Delphi [-]
System.SetTextBuf(target, buffer1);
...
System.SetTextBuf(source, buffer2);

ya todo OK. 23 segundos y todo OK.

gracias
A