Hogyan tudom Pascalban megoldani, hogy az adott mappában lévő txt file-ok tartalmát egy txt-be másolja be?

Szia.

Dos Unitban Findfirst és Findnext procedure.

Borland Pascal helpben van a Findfirstnél :

Sample Code:

{Findfrst.PAS}

{Sample code for the FindFirst and FindNext procedures.}

{ For Windows: }

{ uses WinDos,WinCrt; }

uses Dos;

var

DirInfo: SearchRec; { For Windows, use TSearchRec }

begin { For Windows, use faArchive }

FindFirst('*.PAS', Archive, DirInfo); { Same as DIR *.PAS }

while DosError = 0 do

begin

Writeln(DirInfo.Name);

FindNext(DirInfo);

end;

end.

Sok sikert.

Üdv.