Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.08.25;
Скачать: [xml.tar.bz2];

Вниз

Файлы   Найти похожие ветки 

 
Goast   (2003-08-09 17:16) [0]

Люди добрые, помогите пожалуйста:как открыть НЕ текстовый фаил???...


 
Yanis   (2003-08-09 17:20) [1]

Чего?
ShellExecute ??? WinExec ??? или надо открыть в виде теста не тестовый файл, ничего не понял. Формулируй доходчиво.


 
Goast   (2003-08-09 17:29) [2]

:))) мда....калека я....
короче говоря спомщью assign\reset я открываю текстовый фаил и могу прочитать че в нем написанно а если я так же открываю другой фаил то получается ерунда какая-то так можно его открыть так что бы понять че в нем????(или я опять глупость несу??)


 
Anatoly Podgoretsky   (2003-08-09 17:56) [3]

Reset и для двоичных файлов


 
Goast   (2003-08-09 18:14) [4]

Спасибо конечно за ответь но я все равно не понел....немогли бы мне кто нибуть написать фрагмент кода....плз....:(


 
nikus   (2003-08-09 19:48) [5]

Есть три типа файлов: текстовые, типизированные, и нетипизированные. Определись сначала какой тип файла открывать собираишься...


 
Goast   (2003-08-09 20:24) [6]

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


 
dataMaster   (2003-08-09 20:34) [7]

Если знаешь, где и что на что менять, то объявить переменную надо как file of byte, т.е. var f:file of byte. Затем Seek"ом находить нужные адреса и Write"ом прописывать новые значения. Вот и все.


 
Anatoly Podgoretsky   (2003-08-09 20:42) [8]

Значит речь идет о нетипизированных файлов, а для удобнее TFileStream, много проще и число нужных методов малое и изначально понятное Create/Read/Write/Seek/Free


 
Goast   (2003-08-09 20:50) [9]

конечно спасибо вам всем что отвечаете мне....но типа начинающий я и все равно до сих пор не очень представлю себе как это сделать....:(((


 
Мал0й   (2003-08-09 21:16) [10]

Тебе главное знать куда писАть! А далее подойдет как писали
var f:file;
Reset(f, 1);
и т.д.


 
Goast   (2003-08-09 21:16) [11]

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


 
dataMaster   (2003-08-09 21:26) [12]

Вот набросал на скорую руку:

program prgmm;

uses
Windows,
SysUtils;

var
a, b : byte;
f ( f, "file.ext")
Вот набросал на скорую руку:

program prgmm;

uses
Windows,
SysUtils;

var
a, b : byte;
f : file of byte; // объявили файл

begin
a:=11; // какое-то значение - подставишь свое
b:=22; // какое-то значение - подставишь свое
AssignFile(f, "file.ext"); // вместо file.ext пишешь нужное имя
Reset(f); // открыли файл
Seek(f, $FF); // нашли нужное место (вместо $FF подставишь свое)
Write(f, a); // записали байт
Write(f, b); // записали байт
CloseFile(f); // закрыли файл
end.


Вот таким образом примерно будет выглядеть твоя программа.


 
Goast   (2003-08-09 21:35) [13]

dataMaster я тебя обожаю...;)


 
dataMaster   (2003-08-09 21:37) [14]

2Goast

Ну, разобрался, наконец? ;-)


 
Goast   (2003-08-09 21:44) [15]

угу все пучком...жди следующего вопроса...;)



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

Форум: "Основная";
Текущий архив: 2003.08.25;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.48 MB
Время: 0.01 c
1-81819
Kviz
2003-08-13 14:21
2003.08.25
Господа, помогите отловить сообщение...


1-81712
Relaxxx
2003-08-10 20:06
2003.08.25
Фокус Мемо когда он на ходится на форме стиля fsMDIChild


1-81728
MoRT
2003-08-10 19:46
2003.08.25
Эмуляция нажатия клавиш


1-81609
kostya_iz_angren
2003-08-13 08:34
2003.08.25
Использовать компонент, не установленный в Delphi


1-81751
R
2003-08-06 07:03
2003.08.25
Сколько строк вмещает ListBox





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский