Форум: "Основная";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
ВнизПроблема Найти похожие ветки
← →
Tik (2002-12-13 06:11) [0]Записал строковую переменную в конец каждой строки файла:
st.q1 st.q2 st.org_name
100 200 орагнизация1
200 210 орагнизация2
...
Begin
Reset(F1); //открываю файл для чтения
Read(F1,???); //Здесь я должен прочитать из файла строковую переменную. Что мне нужно написать //вместо вопросов?
while not EOLN do //
begin
if st.org_name="RUS" then //И если она(строковая переменная) равно "RUS", то изменить Caption у GroupBox2.
GroupBox2.Caption:="text";
CloseFile(F1);
end;
end;
← →
BoxTer (2002-12-13 06:49) [1]type baz=record
q1,q2,q3:какие_то_типы;
end;
var st:baz;
F1:file of baz;
Begin
Reset(F1);
while not EoF(F1) do begin
Read(F1,st); //Здесь я должен прочитать из файла строковую переменную. Что мне нужно написать //вместо вопросов?
while not EOLN do //
begin
if st.org_name="RUS" then //И если она(строковая переменная) равно "RUS", то изменить Caption у GroupBox2.
GroupBox2.Caption:="text";
CloseFile(F1);
end;
end;
end;
← →
Separator (2002-12-13 07:07) [2]Во первых где AssignFile?
Во вторых по методу BoxTer можно работать только если известен тчный размер bas, а если в нем например q3: string, то нифига работать не будет, так как переменная типа string переменной длины.
> Tik
Открывай как текстовый файл и считывай по строчкам проверяя EOF и каждую строчку анализируй
← →
zavdim (2002-12-13 09:45) [3]а в чем вопрос?
← →
BoxTer (2002-12-13 20:31) [4]Фигня, все прекрасно работает с переменной длиной... a assifnfile - не в нем вопрос, вот и не писал...
а почему не спросил где uses, begin, end???
← →
Song (2002-12-13 20:37) [5]Чего у тебя так всё и работает, когда ты закрываешь файл внутри цикла? ;)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c