ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
 
Страница 349 из 677 « Первая < 249299339 345 346 347 348 349 350 351 352 353 359399449 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #3481  
Старый 03.05.2009, 13:32
mailbrush
Познавший АНТИЧАТ
Регистрация: 24.06.2008
Сообщений: 1,996
Провел на форуме:
6075534

Репутация: 2731


Отправить сообщение для mailbrush с помощью ICQ
По умолчанию
НTL, в uses подключай юнит другой формы.

Как окурглить рамку (контур) кнопки?
 

  #3482  
Старый 03.05.2009, 14:15
Nightmarе
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763

Репутация: 1680


Отправить сообщение для Nightmarе с помощью ICQ
По умолчанию
Код:
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], сам по всякому пробовал, никак не получается ;(
 

  #3483  
Старый 03.05.2009, 14:17
Rebit
Участник форума
Регистрация: 07.08.2007
Сообщений: 136
Провел на форуме:
2010588

Репутация: 653
Отправить сообщение для Rebit с помощью ICQ
По умолчанию
Нада человек який решить задачки 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), з'ясувати, чи мають вони: одну, дві, чи не мають спільних точок перетину взагалі.


С меня плюсики + благодарность

Заданий много то стучите все и при цьом задания разних типов

Актуально
 

  #3484  
Старый 03.05.2009, 15:30
НTL
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663

Репутация: 357


Отправить сообщение для НTL с помощью ICQ
По умолчанию
mailbrush, 3 вкладка, последний компонент, XP... Просто на форму ее кинь
 

  #3485  
Старый 03.05.2009, 15:50
Zitt
Познавший АНТИЧАТ
Регистрация: 07.05.2006
Сообщений: 1,031
Провел на форуме:
5885100

Репутация: 773


Отправить сообщение для Zitt с помощью ICQ
По умолчанию
Как распечатать текст в определенном месте на листе?
например в углах листа...
 

  #3486  
Старый 03.05.2009, 16:50
Flame of Soul
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
Провел на форуме:
1740746

Репутация: 435
Отправить сообщение для Flame of Soul с помощью MSN
По умолчанию
Цитата:
Сообщение от 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; 
 

  #3487  
Старый 03.05.2009, 18:16
НTL
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663

Репутация: 357


Отправить сообщение для НTL с помощью ICQ
По умолчанию
как сделать кнопку "Обзор" (Файлов)
Да еще чтобы под "Имя файла" было "Тип файла" тыпы который я должен указать сам...

ПСы: Гугол седня играет не в мою пользу
 

  #3488  
Старый 03.05.2009, 18:49
Flame of Soul
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
Провел на форуме:
1740746

Репутация: 435
Отправить сообщение для Flame of Soul с помощью MSN
По умолчанию
Цитата:
как сделать кнопку "Обзор" (Файлов)
Да еще чтобы под "Имя файла" было "Тип файла" тыпы который я должен указать сам..
если на Дельфи, то вкладка Dialog -> добавляешь на форму OpenDialog
открываешь в свойствах Filter у OpenDialog и там 2 колонки, так вот в первую пишешь что хочешь, а во вторую маску файлов.

Потом обработчик:
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
 if OpenDialog1.Execute then s:=OpenDialog1.FileName;
end; 
 

  #3489  
Старый 03.05.2009, 19:16
НTL
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663

Репутация: 357


Отправить сообщение для НTL с помощью ICQ
По умолчанию
Цитата:
Сообщение от 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
 

  #3490  
Старый 03.05.2009, 19:32
Flame of Soul
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
Провел на форуме:
1740746

Репутация: 435
Отправить сообщение для Flame of Soul с помощью MSN
По умолчанию
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; 
 
 
Страница 349 из 677 « Первая < 249299339 345 346 347 348 349 350 351 352 353 359399449 > Последняя »



« Предыдущая тема | Следующая тема »


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ