[ART]

Не могу понять что за формат базы. Самодельный или нет? Вообще это тест. Сам тестер называется WeldSpec.

[friz]

скорее всего самодельный

[ART]

Если самодельный, то как его прочитать? По какому признаку находить правильный вариант ответа? Ребята, помогите. Очень нужно

[Aristarh Dark]

Это файл записей (record), структуру сам попытайся понять.

[dr. F.I.N.]

Aristarh Dark быстрее оказался

[ART]

Спасибо за подсказку.
Структуру вообще не понятная. В тесте так: вопрос, три варианта ответа. По логике должно быть так:

Код:

type
 TRec = record
  Q, A1, A2, A3: string[255];
  Right: byte;
 end;

Но считывает абракадабру. Есть у кого какие нить идеи? Любые.

При структуре:

Код:

type
 TRec = record
  s: integer;
  Q, A1, A2, A3: string[255];
  Right: byte;
 end;

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

[dr. F.I.N.]

пишу на коленке, попробуй:

Код:

type OneRecord = record
  SomeInt: Integer;
  QuestionLength: Byte;
  QuestionStr: String[255];
  Answwer_1_Length: Byte;
  Answer_1_Str: String[255];
  Answwer_2_Length: Byte;
  Answer_2_Str: String[255];
  Answwer_3_Length: Byte;
  Answer_3_Str: String[255];
  Answwer_4_Length: Byte;
  Answer_4_Str: String[255];
  Answwer_5_Length: Byte;
  Answer_5_Str: String[255];
end;

По-моему там 5 вариантов ответов возможно (удалил файл, писал по памяти). Вобщем поковыряй в этом ключе.

[ART]

Неверно считывает. Там точно три варианта ответа. Хотя QuestionLength определяет верно по первому вопросу, но далее, вопрос (QuestionStr) начинается c 'акая..', а не 'Какая...'. Ребята, помогите. Надо девушке написать прогу по автоматизации перевода файла теста в простой текстовый файл. А то ей на работе сказали печатать в ручную 80 тестов по 300 вопросов каждый (((

[Konrad]

Так тебе нужно перевести ту базу в .тхт?

[ART]

Надо так:

Вопрос: бла - бла - бла
Верный ответ: бла - бла - бла

[NumLock]

PHP код:

procedure TForm1.FormCreate(Sender: TObject);
type
  rec = record
    qtrue: DWORD;
    qlen: Byte;
    qtxt: array [0..254] of Char;
    len1: Byte;
    txt1: array [0..254] of Char;
    len2: Byte;
    txt2: array [0..254] of Char;
    len3: Byte;
    txt3: array [0..254] of Char;
    len4: Byte;
    txt4: array [0..254] of Char;
    len5: Byte;
    txt5: array [0..254] of Char;
  end;
var
  filestream: TFileStream;
  data: rec;
begin
  Memo1.Lines.BeginUpdate;
  filestream:=TFileStream.Create('c:\Downloads\1obsh.dat', fmOpenRead);
  while filestream.Position<filestream.Size do
  begin
    filestream.Read(data, SizeOf(rec));
    Memo1.Lines.Add(Copy(data.qtxt, 1, data.qlen)+' [ '+IntToStr(data.qtrue)+' ]');
    Memo1.Lines.Add('  '+Copy(data.txt1, 1, data.len1));
    Memo1.Lines.Add('  '+Copy(data.txt2, 1, data.len2));
    Memo1.Lines.Add('  '+Copy(data.txt3, 1, data.len3));
    Memo1.Lines.Add('  '+Copy(data.txt4, 1, data.len4));
    Memo1.Lines.Add('  '+Copy(data.txt5, 1, data.len5));
    Memo1.Lines.Add('');
  end;
  filestream.Free;
  Memo1.Lines.EndUpdate;
end; 


[ART]

NumLock СПАСИБИЩЕ!!! еще бы знать какой из них верный.... Как структуру узнал?

[Konrad]

Похоже там правильные ответы не выделены никак....

hКакая характеристика наиболее правильно отражает сущность ручной электродуговой сварки плавлением (РДС)?
LРасплавление металлического стержня, покрытия электрода и основного металла.
GЗащита дуги и сварочной ванны газом от расплавления покрытия электрода.
iРасплавление основного металла от теплового воздействия электрической дуги, стержня и покрытия электрода.


/
/
MКакая характеристика наиболее правильно отражает сущность газовой сварки(ГС)?ой сварки плавлением (РДС)?
WНагрев и плавление металла осуществляется теплом от сжигания горючего газа в кислороде.
Защита сварочной ванны газом. газом от расплавления покрытия электрода.
3Защита дуги и сварочной ванны осуществляется газом.твия электрической дуги, стержня и покрытия электрода.


/
/ЌКакая характеристика наиболее правильно отражает сущность дуговой сварки плавящимся электродом в среде инертных (МИГ) и активных (МАГ) газов?
qНагрев и плавление основного и присадочного металла осуществляется теплом от сжигания газов в атмосфере воздуха.
}Нагрев и плавление основного и присадочного металла осуществляется теплом от электрической дуги между электродом и изделием.
`Защита дуги и образование сварочной ванны осуществляется за счет теплотворной способности газов.лектрода.


/
/
bКакая характеристика наиболее правильно отражает сущность дуговой сварки неплавящимся электродом ?реде инертных (МИГ) и активных (МАГ) газов?
PДуга горит между неплавящимся (вольфрамовым или угольным) электродом и изделием.игания газов в атмосфере воздуха.
=Электроды, между которыми горит дуга, являются неплавящимися.ляется теплом от электрической дуги между электродом и изделием.
*Защита дуги осуществляется защитным газом.осуществляется за счет теплотворной способности газов.лектрода.

[NumLock]

Сообщение от ART

еще бы знать какой из них верный....

обновил код в пред. посте - правильный ответ в [] указан после вопроса

[dr. F.I.N.]

Гыыы....я догадался верно, только со стрингом косякнул ...ну с меня спроса нет, писал на коленке и по-памяти