Программа для работы с текстовым файлом

[Dark Illusion]

Здравствуйте. Помогите, пожалуйста, написать следующую программу:
Организуйте ввод вопросов, возможными ответами на которые «Да» или «Нет», в виде текста, заданного шрифта, размера, цвета и записи его в текстовый файл. В текстовый файл перед текстом вопроса вставьте специальную управляющую строку вида:
%№вопроса %название шрифта %размер шрифта %цвет %признак ответа%.
Признак ответа 1 – Да, 0 – Нет. Предусмотреть возможность создания пользователем простейшего изображения и сохранения этого изображения в файле. Имя файла укажите в управляющей строке. А также предусмотреть возможность выбора пользователем файла, содержащего изображение, из имеющихся на диске. Имя файла укажите в управляющей строке.

[Triplecool]

procedure //
var i,j,c,p:integer;
var str,zn:string;
begin
Memo1.Clear;
Memo1.Lines.LoadFromFile(extractFilePath(Application.ExeName)+'questions.txt');

p:=1;
c:=1;

for i:=0 to Memo1.Lines.Count-1 do
begin


for j:=1 to length(Memo1.Lines.Strings[i]) do
begin


str:=Memo1.Lines.Strings[i];
zn:=copy(str,j,1);

if (zn='%') and (c=1) then
begin
Label1.Caption:=copy(str,1,j-1);
p:=j;
c:=2;
end
else
if (zn='%') and (c=2) then
begin
Label1.Font.Name:=copy(str,p+1,j-(p+1));
p:=j;
c:=3;
end
else
if (zn='%') and (c=3) then
begin
Label1.Font.Size:=StrToInt(copy(str,p+1,j-(p+1)));
p:=j;
c:=4;
end
if (zn='%') and (c=4) then
begin
Label1.Font.Color:=StringToColor(copy(str,p+1,j-(p+1)));
p:=j;
c:=5;
end
if (zn='%') and (c=5) then
begin
if copy(str,p+1,j-(p+1))='0' then
Label2.Caption:='now'
else
if copy(str,p+1,j-(p+1))='1' then
Label2.Caption:='yes';

p:=j;
c:=5;
end
else
c:=1;





end;
end;


end;

[Triplecool]

Программа будет работать только если у Вас строка не будет начинаться со знака %

[FaTaL]

Топикстартеру надо было писать не ПОМОГИТЕ написать, а НАПИШИТЕ ЗА МЕНЯ!

[Dark Illusion]

А можете помочь с формой, а то у меня программа как-то не так работает. Она выводит в Label1 всё то, что написано в Memo1

[Triplecool]

Вот тебе программа http://files.mail.ru/RGII60. Я её писал на скорую руку. Но вроде нормально всё. Если будут вопросы то пишите на мейл michellehcim@mail.ru