База вопросов Опции

[sheka]

Мне нужно сделать тест. Базу вопросов хочу хранить как file of record. Проблема заключается в том, что в тесте должны быть картинки. Хотел сделать как поле записи. Но вот проблема: в файл не записывается ни поле :TImage ни :TPicture ни даже :TBitmap.
Как это можно осуществить?

Сообщение отредактировано: sheka - 6.02.2010 20:06

[Client]

что-то сразу не заметил

QuotedStr(s);

Что она делает? тыкнул ctrl+mouse и нашел описание функции

function QuotedStr(const S: string): string;
var
  I: Integer;
begin
  Result := S;
  for I := Length(Result) downto 1 do
    if Result[I] = '''' then Insert('''', Result, I);
  Result := '''' + Result + '''';
end;

сделал эксперимент

procedure TForm2.Button2Click(Sender: TObject);
begin
  Button2.Caption:='''';
end;

В итоге есть только одн апостроф. Получается, что <''''> это и есть апостроф в строке?