Зацените код

← →
Nic © (2004-04-14 16:43) [0]

{Открытие файла}
procedure openfile;
var
s: string;
begin
s:=ExtractFileExt(MainForm.OpenDialog1.FileName);
if (s=".dib")
or (s=".jpg")
or (s=".ico")
or (s=".emf")
or (s=".bmp")
or (s=".jpeg")
or (s=".wmf")
{}
or (s=".DIB")
or (s=".JPG")
or (s=".ICO")
or (s=".EMF")
or (s=".BMP")
or (s=".JPEG")
or (s=".WMF")

or (s=".Dib")
or (s=".Jpg")
or (s=".Ico")
or (s=".Emf")
or (s=".Bmp")
or (s=".Jpeg")
or (s=".Wmf")

or (s=".DIb")
or (s=".JPg")
or (s=".ICo")
or (s=".EMf")
or (s=".BMp")
or (s=".JPeg")
or (s=".WMf")

or (s=".diB")
or (s=".jpG")
or (s=".icO")
or (s=".emF")
or (s=".bmP")
or (s=".jpeG")
or (s=".wmF"){} then
begin
Form3.Hide;
Form4.Image1.Picture.LoadFromFile(MainForm.OpenDialog1.FileName);
Form4.ClientWidth:=Form4.Image1.Picture.Width;
Form4.ClientHeight:=Form4.Image1.Picture.Height;
if (Form4.Width>780) or (Form4.Height>580) then
begin
Form4.Width:=780;
Form4.Height:=580;
end;
{}

{}
Form4.Position:=poDesktopCenter;
Form4.Image1.Visible:=true;
if (Form4.ClientWidth<30) or (Form4.ClientHeight<30) then
begin
Form4.ClientWidth:=30;
Form4.ClientHeight:=30;
end;
Form4.Show;
end;
if (s=".avi")
or (s=".wav")
or (s=".mp3")
or (s=".mid")
or (s=".mpeg4")
{}
or (s=".AVI")
or (s=".WAV")
or (s=".MP3")
or (s=".MID")
or (s=".MPEG")
or (s=".Avi")
or (s=".Wav")
or (s=".Mp3")
or (s=".Mid")
or (s=".Mpeg")
{} then begin
Form3.Show;
Form4.Hide;
if (s=".avi") or (s=".mpeg") or (s=".AVI") or (s=".MPEG") or (s=".Avi") or (s=".Mpeg")
then Form4.Show;
Form4.Image1.Visible:=false;
Form3.MediaPlayer1.Display:=Form4.Panel1;
Form3.MediaPlayer1.FileName:=MainForm.OpenDialog1.FileName;
Form3.MediaPlayer1.Open;
Form4.ClientWidth:=Form3.MediaPlayer1.DisplayRect.Right-Form3.MediaPlayer1.DisplayRect.Left;
Form4.ClientHeight:=Form3.MediaPlayer1.DisplayRect.Bottom-Form3.MediaPlayer1.DisplayRect.Top;
Form3.MediaPlayer1.Play;
end;
end;

← →
pasha_golub © (2004-04-14 16:46) [1]

Не согласен. Предлагаю другой вариант.

const
Ext1: string = ".Dib .wmw ....";
Ext2: string = "...";
begin

...
if Pos(s,Ext1)>0 then ...
if Pos(s,Ext2)>0 then ...
...
end;

← →
Алхимик © (2004-04-14 16:46) [2]

> Зацените код

Три рубля. Безналом.

← →
Nic © (2004-04-14 16:49) [3]

это лишь одна из процедур

← →
Гаврила (2004-04-14 16:50) [4]

>>Nic © (14.04.04 16:49) [3]

Заставили чужой код дорабатывать ?
Сочувствую

← →
Fay © (2004-04-14 16:50) [5]

У Вас оплата построчная?!

← →
VMcL © (2004-04-14 16:51) [6]

>>Nic © (14.04.04 16:43)

Ацтой. Причем именно через "а".

>>pasha_golub © (14.04.04 16:46) [1]

TStringList рулит.

← →
Ega23 © (2004-04-14 16:51) [7]

Nic © (14.04.04 16:49) [3]

это лишь одна из процедур

А остальные?

← →
Real © (2004-04-14 16:58) [8]

на ночь не читать!!!

← →
WebErr © (2004-04-14 17:02) [9]

Шедевр а ля Пикассо!
Кривые руки с шестнадцатью пальцами!
Восемь глаз и все слева от носа!
Волосы только на зубах!
Хичкоку и не снилось!!! :))))
P.S. В общем вешайся!

← →
pasha_golub © (2004-04-14 17:06) [10]

VMcL © (14.04.04 16:51) [6]
Рулит, никто не спорит. Токо сдается мне шо тут начинать надо не с єтой процедуры, а намного раньше :-)

← →
DiamondShark © (2004-04-14 17:07) [11]

Я правильно догадался? Там все комбинации букв перебираются?

← →
Fay © (2004-04-14 17:08) [12]

2pasha_golub © (14.04.04 17:06) [10]
На таких сроках уже никто не возьмётся.

← →
Ega23 © (2004-04-14 17:10) [13]

Я правильно догадался? Там все комбинации букв перебираются?

Пытаются перебрать. Но перебирают не все..

← →
Anatoly Podgoretsky © (2004-04-14 17:14) [14]

Это из твоего вьювера, который ты сейчас усиленно рекламируешь?

← →
Ega23 © (2004-04-14 17:16) [15]

Это из твоего вьювера, который ты сейчас усиленно рекламируешь?

ХТО???? Я???????

← →
Юрий Зотов © (2004-04-14 17:19) [16]

Хуже этого может быть только AvtoShema.

← →
pasha_golub © (2004-04-14 17:21) [17]

Юрий Зотов © (14.04.04 17:19) [16]
LOL

>>Юрий Зотов © (14.04.04 17:19) [16]

Вопрос спорный. Предлагаю устроить голосование: AvtoShema vs subj. Победителю - приз. Бесплатная путевка -> http://www.lleo.aha.ru/na

> Nic

нашел что на "заценку" выставить)...

а ну бегом книжки умные читать !!

AvtoShema - это что такое?!

> Digitman © (14.04.04 17:26) [19]

> нашел что на "заценку" выставить)...
>
> а ну бегом книжки умные читать !!

По-моему это автор не свой код предлагает заценить, а чужой, дабы поприкалываться...

> AvtoShema - это что такое?!

Как, вы не знаете?
Я думал, что уже все её давно себе скачали и пользуются.
Это же супербупермегагиперпрограмма!
Для настоящих кулхакеров.
:)

> Nic © (14.04.04 16:43)

Фигня :)
Цитата.

Историю эту рассказал мне близкий родственник, весьма почтенный
патриарх. Возможно, за два десятка лет к ней что-то для красного словца
и добавилось, но, в общем и целом, байка, думаю, правдивая...

Родственник мой, S., оказался в Америке в начале восьмидесятых, в
возрасте "за сорок" и владея английским языком в рамках "средней школы
давно". Помыкавшись некоторое время (не о том сказ), S. нашел отличную
работу - программистом Больших Шкафов для телефонного гиганта AB&C
(кто знает, тот поймет). Для общения с начальством новоиспеченный
программист быстро выучил английскую фразу "летмишоую" (сейчас покажу),
за которой следовала демонстрация работающего кода, и вопросов больше не
возникало.

Работа в телефонных гигантах неторопливая, но S. бездельничать не любил,
и решил заняться оптимизацией. В одном из Больших Шкафов обнаружилась
база данных, а в ней - таблица с парами чисел: 1-3, 2-6, 3-9, ... ,
1000000-3000000. Hичтоже сумняшеся, S. таблицу стер, а обращения к ней
заменил строчкой B=Ax3. Шкаф, радостно заурчав, продолжал
функционировать. Отсутствие таблицы начальство заметило (и то по чистой
случайности) через неделю. Состоялся знаменательный диалог:
- Где таблица?
- Таблица не нужна.
- Как это не нужна?
- Hу, не нужна. Летмишоую. Вот: B=Ax3
- Что это?
- Вместо таблицы.
- А где таблица?
- Я ее стер. Hе нужна.
- Как стер???
- Летмишоую. Вот, работает. B=Ax3
- Hу, работает. А где таблица-то?
..
В конце концов, проявив завидную корпоративную мудрость, начальник
оставил S. в покое. А по AB&C долго ходили легенды о сумасшедшем
бородатом русском, который ПРИДУМАЛ ФОРМУЛУ.

> Я думал, что уже все её давно себе скачали и пользуются.

Причем не только у нас, но и на западе! И еще говорят Майкрософт ее перекупить хочет...(автосхему всмысле)
;-)

> И еще говорят Майкрософт ее перекупить хочет...(автосхему
> всмысле)

В бета тестинге Виндов применять собираются... Надо же хоть как то глюки ловить. :)

Зацените код Найти похожие ветки