хм.. думал что сидят здесь восновном люди старше 18 лет...

С БД не работаю, а игры/проги хорошо делаю. А с кнопкой обьясни, покажу

Не мудрено ошибиться на безликих просторах и-нета... Хотя мне действительно 25 (26-й вот-вот нагрянет). С web design-ом завязал как только стал зарабатывать в торговле (пару лет назад), посему работаю в частной фирме в которой являюсь небольшим соинвестором . Но люблю это дело (сайты ваять) правда остаюсь преимущественно в роли направляющего русло разработки: объяснить чего мне надо (и только в узком кругу - совершенно не хватает времени). Последний сайт - ... делаем .

Сам родился в Венгрии, жил в России (школа в Чите, дом в Воронеже), универ и армия - г. Гродно, где и живу по сей день.

Еще привет дальнему востоку (где куча родственников) и т.д. (далее многоточие... ибо устал писать о себе )

Всем удачи.

DelphiST
Как сделать скажем так:
Есть файл примерно с таким содержанием:
---
Page1:
Привет
---
Page2:
Тут картинка
---
И что бы при нажатии на кнопку высвечивалось разное содержимое? ))

PS возможно я не так объяснил.. Но мысль понятна?!

Сделано.... Вызывай функцию так:
RandomLines('имяфайла', страницафайла);
Она возвращает String с содержанием страницы.

Файл должен выглядеть примерно так:

НАЧАЛО ФАЙЛА asid-storm.txt (ПИСАТЬ НЕ НАДО)
Сдесь я расскажу о себе...
Зовут Андрей. 14 лет... Слушаю SOAD, Rammstein...
PHP начал изучать 1-н год назад. Пробовал писать свою CMS.
Пытаюсь изучить Delphi )
---
Как я знаю дельфи
Знаю я на пять(только забыл, что это такое)
КОНЕЦ ФАЙЛА(ПИСАТЬ НЕ НАДО)

То есть "страницы" разделяются вот так : ---

Их может быть до 9999 (надеюсь, хватит)
например, если надо высветить инфу о себе в текстовое поле типа TMemo нужно так:

Memo1.Lines.SetText(PChar(RandomLine('asid-storm.txt', 1)));
Результат:

Сдесь я расскажу о себе...
Зовут Андрей. 14 лет... Слушаю SOAD, Rammstein...
PHP начал изучать 1-н год назад. Пробовал писать свою CMS.
Пытаюсь изучить Delphi )

Memo1.Lines.SetText(PChar(RandomLine('asid-storm.txt', 2)));
Результат:

Как я знаю дельфи
Знаю я на пять(только забыл, что это такое)


А вот сама функция:

function TForm1.RandomLine(filename : String; line : Integer) : String;
var
filelist : TStrings;
i, cnt : Integer;
ar : Array[0..9999] of String;
temp: WideString;
begin
filelist:=TStringList.Create;
cnt:=1;
temp:='';
if not(FileExists(filename)) then
begin
Application.MessageBox(PChar('Файл ''' + filename + ''' не существует.'), 'Error ', MB_OK+MB_ICONERROR);
Result:='';
exit;
end;
filelist.LoadFromFile(filename);
if(filelist.Strings[filelist.Count-1]<>'') then filelist.Add('---');
for i:=0 to filelist.Count-1 do
begin
if(filelist.Strings[i]<>'---') then
begin
temp:=temp+filelist.Strings[i]+#10#13;
end
else
begin
ar[cnt]:=temp;
cnt:=cnt+1;
temp:='';
end;
end;
Result:=ar[line];
end;



Надеюсь, тебя понял, т.к. на программу угрохал 10 минут

CпС

Приду домой попробую )

Не за что Кстате, скоро статья выйдет как в Delphi создть ОЧЕНЬ красивую программу со спецэфектами

Давай )) почитаю потом )

Меня зовут Артур мне 19....работаю дизайнером в новостном агентстве......отлично знаю html & css (хотя css не верстаю)....благодаря AsidStorm'у потихоньку с пхп начал работать.....слушаю многа чего......но только не рэп......хотя пару тем из репа есть классных....а в основном рулят: АлисА, Пилот, POD, Papa Roach, LP, Metallica и не поверите что еще: "Грегорианский хор 17 века" (правда в современной обработке)

Asid Storm да не думал что меня 14-летний учить пхп будет .....против ничего не имею.......но вот вы как молодежь обскакали стариков =)))