 |
|
03.05.2009, 13:32
|
|
Познавший АНТИЧАТ
Регистрация: 24.06.2008
Сообщений: 1,996
С нами:
9410786
Репутация:
2731
|
|
НTL, в uses подключай юнит другой формы.
Как окурглить рамку (контур) кнопки?
|
|
|
03.05.2009, 14:15
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
Searchrec: Tsearchrec;
s:string;
begin
memo2.Clear;
FindFirst(Edit1.Text+'*.*', FaAnyfile, SearchRec);
if (SearchRec.Attr and faDirectory)<>0 then s:=Edit1.Text else s:=Edit1.Text;
memo2.Lines.Add(s+SearchRec.Name);
while FindNext(SearchRec) = 0 do
begin
if (SearchRec.Attr and faDirectory)<>0 then s:=Edit1.Text else s:=Edit1.Text;
if (SearchRec.Attr and faHidden) <> 0 then
memo2.Lines.Add('[h]'+s+SearchRec.Name+'[/h]')
else
memo2.Lines.Add(s+SearchRec.Name);
end;
end;
Подскажите плиз, как в данном коде сделать так, чтобы он выделял папки тегом [folder], скрытые папки [hidefolder], файлы [files], скрытые файлы [hidenfiles], сам по всякому пробовал, никак не получается ;( |
|
|
|
03.05.2009, 14:17
|
|
Участник форума
Регистрация: 07.08.2007
Сообщений: 136
С нами:
9874363
Репутация:
653
|
|
Нада человек який решить задачки 1-курсу института
Задача типа
Лабораторна робота № 1 Розгалуження.
Розробити програму для обчислення простого виразу, вхідні дані ввести з
клавіатури, результат вивести у форматованому вигляді, передбачити затримку пе-
реходу від екрана з результатами до програми. Знак ‘^’ означає ‘у ступеню’.
1. Задані дві функції y1 y2
24x2 x
y1=------------ ; y2=1 - -------;
(8+3x)2 2+x
Cкласти програму, результатом роботи якої, є найбільше значення однієї з них.
2.Дана точка з координатами x,y,z. Встановити чи належить вона кулі з центром c(x0,y0,z0) та радіусом R.
3. Задані три функції y1,y2,y3. Скласти програму, результатом якої буде найбільше значення однієї з них.
1 1
y1=--- - ----; y2= 8x; y3=5x2+3x+1;
x x2
4. Дані дві функції y1 y2.
1 6 1 1
y1=--- + ----; y2= 3x + ---- + ----;
x x2 6x 9x2
5. На площині задані два кола з радіусами R1, R2 і координатами центрів C1(x1,y1), C2(x2,y2), з'ясувати, чи мають вони: одну, дві, чи не мають спільних точок перетину взагалі.
С меня плюсики + благодарность
Заданий много то стучите все и при цьом задания разних типов
Актуально
|
|
|
|
03.05.2009, 15:30
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
С нами:
9626394
Репутация:
357
|
|
mailbrush, 3 вкладка, последний компонент, XP... Просто на форму ее кинь
|
|
|
|
03.05.2009, 15:50
|
|
Познавший АНТИЧАТ
Регистрация: 07.05.2006
Сообщений: 1,031
С нами:
10533245
Репутация:
773
|
|
Как распечатать текст в определенном месте на листе?
например в углах листа...
|
|
|
|
03.05.2009, 16:50
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
С нами:
9980798
Репутация:
435
|
|
Сообщение от Nightmarе
Подскажите плиз, как в данном коде сделать так, чтобы он выделял папки тегом [folder], скрытые папки [hidefolder], файлы [files], скрытые файлы [hidenfiles], сам по всякому пробовал, никак не получается ;(
PHP код:
procedure LFD(Path: string; FileList: TStrings);
var
SR: TSearchRec;
AT: Integer;
ST: String;
begin
if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
begin
repeat
if DirectoryExists(path+SR.Name) then
begin
ST :='Folder';
AT := FileGetAttr(path+SR.Name);
if (AT and faHidden) <> 0 then ST := ST + 'H'; //Hidden
if (AT and faReadOnly)<> 0 then ST := ST + 'R'; //Read-Only
if (AT and faSysFile) <> 0 then ST := ST + 'S'; //System
if (AT and faArchive) <> 0 then ST := ST + 'A'; //Archive
ST:=ST+'] ';
FileList.Add(' [' + ST + SR.Name + ' [/'+ST);
end
else
begin
ST :='File';
AT := FileGetAttr(path+SR.Name);
if (AT and faHidden) <> 0 then ST := ST + 'H'; //Hidden
if (AT and faReadOnly)<> 0 then ST := ST + 'R'; //Read-Only
if (AT and faSysFile) <> 0 then ST := ST + 'S'; //System
if (AT and faArchive) <> 0 then ST := ST + 'A'; //Archive
ST:=ST+'] ';
FileList.Add(' [' + ST + SR.Name + ' [/'+ST);
end
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;
Пример вызова:
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
begin
LFD('c:\',Memo1.Lines);
end;
|
|
|
|
03.05.2009, 18:16
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
С нами:
9626394
Репутация:
357
|
|
как сделать кнопку "Обзор" (Файлов)
Да еще чтобы под "Имя файла" было "Тип файла" тыпы который я должен указать сам...
ПСы: Гугол седня играет не в мою пользу  |
|
|
|
03.05.2009, 18:49
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
С нами:
9980798
Репутация:
435
|
|
как сделать кнопку "Обзор" (Файлов)
Да еще чтобы под "Имя файла" было "Тип файла" тыпы который я должен указать сам..
если на Дельфи, то вкладка Dialog -> добавляешь на форму OpenDialog
открываешь в свойствах Filter у OpenDialog и там 2 колонки, так вот в первую пишешь что хочешь, а во вторую маску файлов.
Потом обработчик:
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
if OpenDialog1.Execute then s:=OpenDialog1.FileName;
end;
|
|
|
|
03.05.2009, 19:16
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
С нами:
9626394
Репутация:
357
|
|
Сообщение от Flame of Soul
если на Дельфи, то вкладка Dialog -> добавляешь на форму OpenDialog
открываешь в свойствах Filter у OpenDialog и там 2 колонки, так вот в первую пишешь что хочешь, а во вторую маску файлов.
Потом обработчик:
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
if OpenDialog1.Execute then s:=OpenDialog1.FileName;
end;
Все работате, но теперь как перехватить путь и имя файла и закинуть это в эдит1 (например: выбрали мы фаил и он записался в эдит1 в таком виде: c:\папка\папка\еще одна папка\фаил.txt
|
|
|
|
03.05.2009, 19:32
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
С нами:
9980798
Репутация:
435
|
|
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
if OpenDialog1.Execute then s:=OpenDialog1.FileName;
end;
полный путь храниться в переменной s
Можете сделать так:
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then Edit1.Text:=OpenDialog1.FileName;
end;
|
|
|
|
|
|
|
|
Здесь присутствуют: 4 (пользователей: 0 , гостей: 4)
|
|
|
|
Похожие темы
Линейный вид
