Проблема

← →
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]

а в чем вопрос?

Фигня, все прекрасно работает с переменной длиной... a assifnfile - не в нем вопрос, вот и не писал...
а почему не спросил где uses, begin, end???

Чего у тебя так всё и работает, когда ты закрываешь файл внутри цикла? ;)

Проблема Найти похожие ветки