Скачать: CL | DM;

Перемещение указателя в текстовом файле   Найти похожие ветки 

← →
ZZZ_ZZZ ©   (2006-04-19 13:23) [0]

Добрый день!
для перемещения я использую процедуру seek(f,n), но выдается сообщение о несовместимости типов.  Какую использовать?
var
   f:textfile;
   s:string;
begin
  assignfile(f,"c:\1.txt");
  rewrite(f);
  s:="12345";
  seek(f,3);
  write(f,s);

---

← →
Плохиш ©   (2006-04-19 13:32) [1]

Текстовые файлы - это файлы последовательного доступа, поэтому перемещатыся в них можно только в одном направлении, читая каждый байт.

---

← →
ZZZ_ZZZ ©   (2006-04-19 13:36) [2]

и еще такая проблема:

r:=12.34;
s:=formatfloat("00000000.00",r);

Получается s=00000012,34
как сделать, чтобы вместо запятой стояла точка?
Заранее благодарен.

---

← →
Плохиш ©   (2006-04-19 13:39) [3]

> как сделать, чтобы вместо запятой стояла точка?

А вот на этот вопрос отвечать не буду. Это уже как запуздырить иконку туда где часики, круглые сутки здесь мусолиться.

---

← →
balepa ©   (2006-04-19 13:49) [4]

> Плохиш ©   (19.04.06 13:39) [3]


Поддерживаю.

---

← →
имя   (2006-04-19 14:35) [5]

Удалено модератором
Примечание: Правила учить

---

← →
KygECHuK ©   (2006-04-19 14:47) [6]

.
 .
 .
decimalseparator := ".";
s:=formatfloat("00000000.00",r);
 .
 .
 .

---

← →
ANB ©   (2006-04-19 15:26) [7]

>
> ZZZ_ZZZ ©   (19.04.06 13:23)

Использовать другие способы доступа к файлам :
1) через манипуляторы (FileOpen, FileCreate, FileRead, FileWrite)
2) через потоки (TStream)

---

← →
ZZZ_ZZZ ©   (2006-04-19 16:16) [8]

Благодарю, помогли здорово!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c