Ugnetatel
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Уважаемые знатоки Здравствуйте.
Скоро лето, хочется кушать мороженное, а задача хочет работать))
Я плохо разбираюсь в Delphi - новичок, но желание учиться и развиваться дальше
ставится непреодолимым, надеюсь я потом буду роботом, ... я так не думаю 
Задача следующая:
Можете мне подсказать как вынести описание в name.txt из
Код: procedure TForm1.sButton1MouseEnter(Sender: TObject); begin
sLabel1.Caption:='Короткое описание программы 1'+#13#10+
'...'+#13#10+
'...'+#13#10+
'...'+#13#10+
'...'+#13#10+
'...'+#13#10+
'...'+#13#10+
'...'+#13#10+
'n'+#13#10+
'...';
end; |
и
Код: procedure TForm1.sButton1Click(Sender: TObject); begin
PlaySound(PChar(ExtractFilePath(Application.ExeName) + '1.wav'), 0,SND_FILENAME OR SND_NOSTOP OR SND_ASYNC);
sLabel1.Caption:='Короткое описание программы 2!!!'+#13#10+
'...'+#13#10+
'...'+#13#10+
'...'+#13#10+
'...'+#13#10+
'...'+#13#10+
'...'+#13#10+
'...'+#13#10+
'...'+#13#10+
'n'+#13#10+
'...';
end;
procedure TForm1.sButton2MouseEnter(Sender: TObject);
procedure TForm1.sButton2Click(Sender: TObject);
procedure TForm1.sButton3MouseEnter(Sender: TObject);
procedure TForm1.sButton3Click(Sender: TObject);
procedure TForm1.sButton4MouseEnter(Sender: TObject);
procedure TForm1.sButton4Click(Sender: TObject); |
И так до 100:
procedure TForm1.sButton100MouseEnter(Sender: TObject);
procedure TForm1.sButton100Click(Sender: TObject);
А в name.txt добавить как я думаю для TForm1.sButtonNмouseEnter
теги к примеру:
#A1-начало
1. строка
2. строка
3. строка
n. строка
#B1-конец
Для TForm1.sButton1Click в txt
#C1-начало
1. строка
2. строка
3. строка
n. строка
#D1-конец
#A2-начало
...
#B2-конец
#C2начало
...
#D2-конец
#A3-начало
...
#B3-конец
#C3-начало
...
#D3-конец
И т.д.
И описание выводить этот эликсир через переменные уже независимо от кол-ва строк.
Искать теги в name.txt и между ними #A1 #B1 и #С1 #D1 выводить текст в caption sButtonMouseEnter and sButtonClick.
Это очень важно для меня научиться читать и выдирать из txt строки обособленные определенным значением(тегом) для дальнейшего использования. Желательно, если пример будет расписан полностью с комментариями.
Я не наглый и не жду полностью готового ответа, но если вы мне полностью покажете, я буду очень рад 
Кому не лень милости просим.
Кто за мороженное стучите в ПМ))
Заранее спасибо за ответы  |
Всего записей: 31 | Зарегистр. 06-01-2014 | Отправлено: 16:52 19-02-2014 | Исправлено: Ugnetatel, 00:03 20-02-2014 |
|
