Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
Вниз
считывание по символу Найти похожие ветки
← →
Ghost! (2002-10-28 17:36) [0]Здравствуйте! Не подскажите, как сделать так, чтоб символы из файла считывались по одному? Например, переменной "a" присвоить первый символ файла "x.xxx", переменной "b" второй символ и и т.д. Спасибо
← →
Smithson (2002-10-28 17:44) [1]f: file;
C: Byte;
I: Integer;
...
AssifnFile(F,"x.xxx");
BlockRead(f,c,1,i);
...
CloseFile(F);
ну и свяьой F1
← →
Smithson (2002-10-28 17:45) [2]Эээээээээээээ, вру! После AssignFile еще Reset(F, 1) нужен!
← →
LongIsland (2002-10-28 17:46) [3]Можно загнать его в TStringList, например, а потом оттуда счтывать хоть по одному, хоть по 10.
Можно загнать его в буфер и, соответственно, делать тоже самое. Вариантов масса:-)
← →
Anatoly Podgoretsky (2002-10-28 17:51) [4]Это сколько же переменных будет
← →
han_malign (2002-10-28 17:52) [5]Но грамотнее делать через блочное чтение записи фиксированного размера (можно и переменного но еще поле размера хранить). Как вариант для хранения именованных данных - Ini файл.
← →
Gluka (2002-10-28 18:22) [6]Var
f: file of char;
FileVars: array [0..10] of char; // filesize(F)
i: integer;
begin
for i:=0 to filesize(F)-1 do
begin
seek(f,i);
Read(f,FileVars[i]);
end;
closefile(f);
end;
Каждый елемент масива->разные переменные(значение)
← →
Ghost! (2002-10-28 18:59) [7]2 Gluka
Интересно, но у меня чего-то не идёт. Пишет Error I/O 103 и всё... Очень благодарен всем.
← →
LongIsland (2002-10-28 19:16) [8]
var
iFileHandle: Integer;
iFileLength: Integer;
iBytesRead: Integer;
Buffer: PChar;
begin
if not dgOpen.Execute then Exit;
Open:=True;
FileName:=dgOpen.FileName;
Buffer:="";
try
iFileHandle := FileOpen(FileName, fmOpenRead);
iFileLength := FileSeek(iFileHandle,0,2);
FileSeek(iFileHandle,0,0);
Buffer := PChar(AllocMem(iFileLength + 1));
iBytesRead := FileRead(iFileHandle, Buffer^, iFileLength);
FileClose(iFileHandle);
finally
FreeMem(Buffer);
end;
end;
В переменной Buffer будет содержаться все содержание файла.a:=Buffer[i];- обращение к любому символу
Пример взят из доков:-)
← →
Ghost! (2002-10-28 20:52) [9]ВСЕМ ОГРОМНОЕ СПАСИБО, ВСЁ ПОШЛО.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c
