Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Запись в файл [D7, Win2k]

Checist [root] © (2003-02-07 10:57:00)
Вот мне нужно записать в ! нетекстовый ! файл переменную PathS как это сделать и как потом его отдуда достать другой прогой - то есть одна прога туда его вписывает (желательно дозаписывает), а другая считывает. Только, прошу, дайте полный синтаксис команды с файлом Wrfile.rof и переменной PathS, а не просто команду.

mrcat (2003-02-07 12:21:00) [1]
=))))))

Anatoly Podgoretsky (2003-02-07 12:20:00) [2]
Ой не надо об этом.

Андрей Сенченко (2003-02-07 12:17:00) [3]
Игорь Шевченко © (07.02.03 11:40)

Ты же прекрасно понял о чем речь :-)

uw (2003-02-07 12:15:00) [4]
Вместо Close лучше написать CloseFile - сработал атавизм 80-х годов.

uw (2003-02-07 12:09:00) [5]
Я так понимаю, что это всего лишь упражнение.

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

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;

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

Игорь Шевченко (2003-02-07 12:05:00) [6]
Андрей Сенченко © (07.02.03 12:03)

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

Андрей Сенченко (2003-02-07 12:03:00) [7]
mrcat © (07.02.03 12:01)

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

mrcat (2003-02-07 12:01:00) [8]
Андрей Сенченко © (07.02.03 11:52)

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

Андрей Сенченко (2003-02-07 11:52:00) [9]
>> Checist [root]

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

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

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

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

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

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

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

Игорь Шевченко (2003-02-07 11:40:00) [10]
Checist [root] (07.02.03 11:39)

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

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

Checist [root] (2003-02-07 11:39:00) [11]
> uw > Да я и так уже все разжевал как можно было. Нужно дозаписать переменную пипа стринг в файл нетекстового типа.

uw (2003-02-07 11:31:00) [12]
Ты уж ставь задачу целиком.

Checist [root] (2003-02-07 11:27:00) [13]
Вот блин и форум. Помощи прошу же! Коли не знаешь, так и не пиши. Просил же давать только дельные и по возможности проверенные советы. А тут такое. :(

Романов Р.В. (2003-02-07 11:24:00) [14]
Не чаго а ОГОГО :)

Checist [root] (2003-02-07 11:23:00) [15]
> Романов > Чаго?

Романов Р.В. (2003-02-07 11:15:00) [16]
TIniFile ?

Checist [root] (2003-02-07 11:12:00) [17]
Ну, кто нибудь помогите плиз!!!

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »