Страницы: (13) 1 [2] 3 4 ... Последняя » ( Перейти к первому непрочитанному сообщению ) Reply to this topicStart new topicStart Poll

Кто вы?

p1ay3r
Отправлено: Jul 1 2007, 11:43 AM
Quote Post


  Майор
*

Группа: Members
Сообщений: 106
Пользователь №: 1016
Регистрация:
30-June 07



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


--------------------
user posted image
PMEmail PosterICQ
Top
DelphiST
Отправлено: Jul 1 2007, 12:49 PM
Quote Post


  Команда ЭйсВэб
*

Группа: Super moderator
Сообщений: 1093
Пользователь №: 796
Регистрация:
23-May 07



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


--------------------
user posted image
PMEmail PosterICQ
Top
Hryak
Отправлено: Jul 1 2007, 08:42 PM
Quote Post


  Генерал
*

Группа: Super moderator
Сообщений: 243
Пользователь №: 83
Регистрация:
31-October 06



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


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

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

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

Всем удачи.
PMEmail Poster
Top
Asid Storm
Отправлено: Jul 2 2007, 11:12 AM
Quote Post


  Команда ЭйсВэб
*

Группа: Super moderator
Сообщений: 895
Пользователь №: 39
Регистрация:
27-August 06



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

PS возможно я не так объяснил.. Но мысль понятна?!
PMEmail PosterUsers WebsiteICQ
Top
DelphiST
Отправлено: Jul 2 2007, 12:18 PM
Quote Post


  Команда ЭйсВэб
*

Группа: Super moderator
Сообщений: 1093
Пользователь №: 796
Регистрация:
23-May 07



Сделано.... Вызывай функцию так:
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 smile.gif', 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 минут


--------------------
user posted image
PMEmail PosterICQ
Top
Asid Storm
Отправлено: Jul 2 2007, 12:32 PM
Quote Post


  Команда ЭйсВэб
*

Группа: Super moderator
Сообщений: 895
Пользователь №: 39
Регистрация:
27-August 06



CпС

Приду домой попробую )
PMEmail PosterUsers WebsiteICQ
Top
DelphiST
Отправлено: Jul 2 2007, 12:51 PM
Quote Post


  Команда ЭйсВэб
*

Группа: Super moderator
Сообщений: 1093
Пользователь №: 796
Регистрация:
23-May 07



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


--------------------
user posted image
PMEmail PosterICQ
Top
Asid Storm
Отправлено: Jul 2 2007, 02:16 PM
Quote Post


  Команда ЭйсВэб
*

Группа: Super moderator
Сообщений: 895
Пользователь №: 39
Регистрация:
27-August 06



Давай )) почитаю потом )
PMEmail PosterUsers WebsiteICQ
Top
Шаман
Отправлено: Jul 11 2007, 07:58 AM
Quote Post


  Команда ЭйсВэб
*

Группа: Members
Сообщений: 435
Пользователь №: 936
Регистрация:
13-June 07



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


--------------------
user posted image
user posted image
user posted image
PMEmail PosterUsers WebsiteICQ
Top
Шаман
Отправлено: Jul 11 2007, 09:33 AM
Quote Post


  Команда ЭйсВэб
*

Группа: Members
Сообщений: 435
Пользователь №: 936
Регистрация:
13-June 07



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


--------------------
user posted image
user posted image
user posted image
PMEmail PosterUsers WebsiteICQ
Top

Topic OptionsСтраницы: (13) 1 [2] 3 4 ... Последняя » Reply to this topicStart new topicStart Poll

 



[ Script Execution time: 0.0267 ]   [ 10 queries used ]   [ GZIP выключен ]