Работа с текстовым файлом

[Алексей_2012]

Здравствуйте! не судите строго, с типизированными файлами работать умею, а с текстовыми нет, только при загрузки в Tstringlist. Цель задачи указать на файл через topendialog, затем создать его точную копию, но с расширением *.txt, укажу загвостку, файл может быть любого типа (например exe -файл, ведь если его открыть через блокнот, то выведутся много непонятных символов, мне нужно их в точности скопировать). Спасибо за понимание! Вроде начал нормально, а дальше запутался, верно ли начал делать?

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
f:TextFile;
ts:TStringList;
begin
if not OpenDialog1.Execute then Exit;
ts:=TStringList.Create(self);
ts.Clear;
s:=OpenDialog1.FileName;
AssignFile (f,s);
reset(F);

Seek(f,0);


      while not Eof(F) do
     ts.Add({как-то скопировать построчно инфу из файла (exe, и пр.)})

ts.free;
end;

[Аватар]

См. CopyFile

[Serge_Bliznykov]

забудьте. Текстовые файлы (TextFile) предназначены для работы с ТЕКСТОВЫМИ файлами. тут без вариантов!

Для работы с бинарными файлами используете другие средства (варианты
f: file of byte; или нетипизированный f : file; или, лучше всего, TFileStream)

Сообщение от Аватар

См. CopyFile

да! если не стоит задача "влезть" внутрь файла, а нужно его скопировать, то лучше использовать функцию копирования!

[Stilet]

Возможно копирование нужно прикрутить к прогрессбару. Тогда через TFileStream перегонку делать.

[FaTaL]

В вашем случае можно примерно так:

procedure TForm1.Button1Click(Sender: TObject);
var
  fname   : string; // полное имя исходного файла
  newfname: string; // полное имя нового файла без расширения
begin
  If OpenDialog1.Execute then
    begin
      fname := OpenDialog1.FileName;
      newfname := Copy (fname, 1, Length(fname) - Length (ExtractFileExt(fname)));
      CopyFile (PChar(fname), PChar(newfname + '.txt'), true);
    end;
end;

[Алексей_2012]

С копированием понятное дело, но все равно спасибо, а с файлами без расширения как быть ( Вернее с расширением "файл" d)?

З.ы. где можно подробнее посмотреть примеры работы с tfilestream? И вообще узнать что это такое и какую структуру из себя представляет?

[Stilet]

а с файлами без расширения как быть

Так же. Расширение не писать.

где можно подробнее посмотреть примеры работы с tfilestream?

в Хелпе Делфи конечно же )
Там подробнее некуда.

[northener]

Сообщение от Алексей_2012

С копированием понятное дело, но все равно спасибо, а с файлами без расширения как быть ( Вернее с расширением "файл" d)?

Какая разница есть ли расширение у файла или его нет? Файл который на диске есть набор единиц и нулей и копируются эти единицы и нули независимо от расширения.

[Алексей_2012]

Да, но некоторые программы свои файлы не дают копировать, то есть дают, но шифруют, либо затирают, поэтому хочу все содержимое переписать в озу, а оттуда уже копировать в текствовый файл

[Аватар]

Сообщение от Алексей_2012

Да, но некоторые программы свои файлы не дают копировать, то есть дают, но шифруют, либо затирают, поэтому хочу все содержимое переписать в озу, а оттуда уже копировать в текствовый файл

Думаю, что здесь очень умная мысль, но закодированная. Алексей, ключ для раскодировки, плиз