| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Проблема с записью в файл. [D7, XP]
Zaq123 © (2006-04-20 10:55:00)Братва, добрый день!
У меня такая проблема:
var f:textfile;
s:string;
f_handle:integer;
begin
...
f_handle:=fileopen('c:\1.txt',fmOpenWrite);
s:='12345';
filewrite(f_handle, s,10);
fileClose(f_handle)
...
При записи в файл получается какая то абракадабра.
kilkennyCat (2006-04-20 12:52:00) [1]var f:textfile
если так объявляете, то работайте как сказано в [2].
если нужна другая работа, не объявляете var f: textfile
AbrosimovA (2006-04-20 12:49:00) [2]Вот пример работы с текстовыми файлами через TMemoryStream:
procedure TForm1.Button1Click(Sender: TObject);
var Stream,Stream2:TMemoryStream;
a,b:integer;
begin
Stream:=TMemoryStream.Create;
Stream2:=TMemoryStream.Create;
Stream.LoadFromFile('1.txt');
a:=3;
b:=6;
Stream.Position:=0;
Stream2.CopyFrom(Stream,a);
Stream.Position:=b;
Stream2.CopyFrom(Stream,Stream.Size-b);
Stream.Free;
Stream2.SaveToFile('2.txt');
Stream2.Free;
end;
MBo (2006-04-20 12:48:00) [3]В текстовом файле никаких позиций нет.
Мефисто (2006-04-20 12:47:00) [4]MBo © (20.04.06 10:56) [1]
До просветления
Zaq123 (2006-04-20 12:35:00) [5]Не могу, потому что она не работает
Zaq123 (2006-04-20 12:34:00) [6]Братва, мне одно только надо: перемещать указатель в нужную позицию в текстовом файле. Кто знает, подскажите!!!???
grisme (2006-04-20 12:31:00) [7]Zaq123 © (20.04.06 12:14) [4]
Почему не можешь?
Zaq123 (2006-04-20 12:14:00) [8]при использовании (AssignFile,Rewrite, Write,CloseFile) я не могу использовать seek(f,n)
Zaq123 (2006-04-20 12:12:00) [9]меня интересует именно эта функция - filewrite(f_handle,s,10);
AbrosimovA (2006-04-20 11:12:00) [10]Вообще-то для текстовых файлов используют:
AssignFile
Rewrite или Append
Write
CloseFile
MBo (2006-04-20 10:56:00) [11]http://www.delphikingdom.ru/lyceum/seminar.asp?ID=2
| |
