Запись в файл

← →
Checist [root] (2003-02-07 10:57) [0]

Вот мне нужно записать в ! нетекстовый ! файл переменную PathS как это сделать и как потом его отдуда достать другой прогой - то есть одна прога туда его вписывает (желательно дозаписывает), а другая считывает. Только, прошу, дайте полный синтаксис команды с файлом Wrfile.rof и переменной PathS, а не просто команду.

← →
Checist [root] (2003-02-07 11:12) [1]

Ну, кто нибудь помогите плиз!!!

← →
Романов Р.В. (2003-02-07 11:15) [2]

TIniFile ?

← →
Checist [root] (2003-02-07 11:23) [3]

> Романов > Чаго?

← →
Романов Р.В. (2003-02-07 11:24) [4]

Не чаго а ОГОГО :)

← →
Checist [root] (2003-02-07 11:27) [5]

Вот блин и форум. Помощи прошу же! Коли не знаешь, так и не пиши. Просил же давать только дельные и по возможности проверенные советы. А тут такое. :(

← →
uw (2003-02-07 11:31) [6]

Ты уж ставь задачу целиком.

← →
Checist [root] (2003-02-07 11:39) [7]

> uw > Да я и так уже все разжевал как можно было. Нужно дозаписать переменную пипа стринг в файл нетекстового типа.

← →
Игорь Шевченко (2003-02-07 11:40) [8]

Checist [root] (07.02.03 11:39)

http://ln.com.ua/~openxs/articles/smart-questions-ru.html

Читать наизусть!

← →
Андрей Сенченко (2003-02-07 11:52) [9]

>> Checist [root]

Извини, но задачу Ты ставишь действительно некорректно.

Вот мне нужно записать в ! нетекстовый ! файл переменную PathS

Нетекстовый - это какой ? INI-файл, архив, программа, библиотека, нетипизированный файл.
По-хорошему хотелось бы увидеть описание того условия, которое сделает Твой файл на Твой взгляд нетекстовым

как это сделать и как потом его отдуда достать другой прогой - то есть одна прога туда его вписывает (желательно дозаписывает), а другая считывает.

Собственно как сделать ЭТО и как потом сделать ОБРАТНОЕ и будет зависеть от упомянутого описания.

Только, прошу, дайте полный синтаксис команды с файлом Wrfile.rof и переменной PathS, а не просто команду.

Полный синтаксис за Тебя напишут только в том случае если задача окажется действительно интересной. Иначе - врядли.

← →
mrcat (2003-02-07 12:01) [10]

Андрей Сенченко © (07.02.03 11:52)

для начала надо определиться, что есть "текстовый" =)

← →
Андрей Сенченко (2003-02-07 12:03) [11]

mrcat © (07.02.03 12:01)

Лично я бы предположил, что имеется ввиду файл, который "можно прочитать по F3 в FAR-e" ну или что-то подобное ... НО это такое глубокое ИМХО, что дальше некуда

← →
Игорь Шевченко (2003-02-07 12:05) [12]

Андрей Сенченко © (07.02.03 12:03)

Любой файл можно прочитать по F3 в Far"е :-)))

← →
uw (2003-02-07 12:09) [13]

Я так понимаю, что это всего лишь упражнение.

Это в одной программе.

procedure WriteFile(PathS: ShortString);
var
f: file;
begin
AssignFile(f, "Wrfile.rof");
{$I-}
Reset(f, 1);
{$I+}
if IOResult = 0 then
Seek(f, FileSize(f))
else
Rewrite(f, 1);
BlockWrite(f, PathS[0], Length(PathS) + 1);
CloseFile(f);
end;

Это - в другой:

function ReadFile: ShortString;
var
f: file;
begin
AssignFile(f, "Wrfile.rof");
{$I-}
Reset(f, 1);
{$I+}
if IOResult <> 0 then begin
Result := "";
Exit;
end;

while NOT Eof(f) do begin
BlockRead(f, Result[0], 1);
BlockRead(f, Result[1], Ord(Result[0]));
end;
Close(f);
end;

Просматривает весь файл, но возвращает только последнюю запись.

← →
uw (2003-02-07 12:15) [14]

Вместо Close лучше написать CloseFile - сработал атавизм 80-х годов.

← →
Андрей Сенченко (2003-02-07 12:17) [15]

← →
Anatoly Podgoretsky (2003-02-07 12:20) [16]

Ой не надо об этом.

← →
mrcat (2003-02-07 12:21) [17]

=))))))

Запись в файл Найти похожие ветки