Delphi/pascal вопросы - ответы. - Страница 12 - Proxy-Base Community - Анонимность и безопасность в интернете.
Бесплатные прокси. Количество:
Прокси для пользователей форума (API). Количество:
Купить доступ к прокси-листам (API). Количество:
 



Информация по хайдам / репутации

(РЕКОМЕНДУЮ) №1 >>>DDos Атака<<|>>DDoS Service<<< ДДОС СЕРВИС<<|>>Заказать DDOS
Все инфопродукты и приватная информация бесплатно
Старый 21.04.2011, 16:44   #100 (permalink)
Electro Style (:
 
Аватар для Rastayan
 
Регистрация: 27.01.2010
Сообщений: 232
Member ID: 6155

Репутация: 550
Репутация: 550
Сказал(а) спасибо: 211
Поблагодарили 280 раз(а) в 152 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

Есть файл в папке мои документы (путь до папки у каждого пользователя разный!) к примеру 1.txt с атрибутами только для чтения и скрытый, как сделать так чтобы по нажатию кнопки этот файл удалялся (в обход корзины)???
Rastayan вне форума   Ответить с цитированием
Старый 03.05.2011, 10:38   #101 (permalink)
HTTP
 
Регистрация: 17.01.2010
Сообщений: 10
Member ID: 5986

Репутация: 0
Репутация: 0
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

_http://kurkov.biz/kak-uznat-puti-k-standartnym-papkam-delphi
_http://www.delphiexpert.ru/view_lesson.php?id=9
infbyte вне форума   Ответить с цитированием
Старый 03.05.2011, 16:18   #102 (permalink)
Electro Style (:
 
Аватар для Rastayan
 
Регистрация: 27.01.2010
Сообщений: 232
Member ID: 6155

Репутация: 550
Репутация: 550
Сказал(а) спасибо: 211
Поблагодарили 280 раз(а) в 152 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

infbyte, Спасибо, но это не то. Поиск юзать я тоже умею... С этим вопросом я уже разобрался сам... (:
Использовал вот это, поиск по всему диску(С):
Код:
procedure TForm1.FileSearch(const PathName, FileName : string; const InDir : boolean);
var
Rec  : TSearchRec;
Path : string;
begin
Path := IncludeTrailingBackslash(PathName);
if FindFirst(Path + FileName, faAnyFile - faDirectory, Rec) = 0 then
try
repeat
ListBox1.Items.Add(Path + Rec.Name);
until FindNext(Rec) <> 0;
finally
FindClose(Rec);
end;
If not InDir then Exit;
if FindFirst(Path + '*.*', faDirectory, Rec) = 0 then
try
repeat
if ((Rec.Attr and faDirectory) <> 0)  and (Rec.Name<>'.') and (Rec.Name<>'..') then
FileSearch(Path + Rec.Name, FileName, True);
until FindNext(Rec) <> 0;
finally
FindClose(Rec);
end;
end;
Rastayan вне форума   Ответить с цитированием
Старый 01.07.2011, 10:48   #103 (permalink)
Programming
 
Аватар для Krebs
 
Регистрация: 09.06.2010
Адрес: Ыть
Сообщений: 398
Member ID: 8063

Репутация: 885
Репутация: 885
Сказал(а) спасибо: 1,604
Поблагодарили 465 раз(а) в 260 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

P.S. Да будет жить раздел)

Цитата:
var dr:pchar;
begin
GetMem(dr, 1);
//тут код выполнения
dr:= nil;
end;
Собственно вопрос память освободил или нет ?
__________________
База наш дом!
Krebs вне форума   Ответить с цитированием
Старый 25.08.2011, 10:34   #104 (permalink)
HTTP
 
Регистрация: 24.08.2011
Сообщений: 16
Member ID: 18148

Репутация: 0
Репутация: 0
Сказал(а) спасибо: 6
Поблагодарили 0 раз(а) в 0 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

дайте пожалуйста ссылку на сайт с простьинками задачами на паскаль!
Aligator вне форума   Ответить с цитированием
Старый 25.08.2011, 14:26   #105 (permalink)
Programming
 
Аватар для Krebs
 
Регистрация: 09.06.2010
Адрес: Ыть
Сообщений: 398
Member ID: 8063

Репутация: 885
Репутация: 885
Сказал(а) спасибо: 1,604
Поблагодарили 465 раз(а) в 260 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

Aligator смотри тыц.
__________________
База наш дом!
Krebs вне форума   Ответить с цитированием
Пользователь сказал cпасибо:
Старый 15.12.2011, 17:59   #106 (permalink)
HTTP/S
 
Аватар для Derevo
 
Регистрация: 02.12.2011
Сообщений: 66
Member ID: 21653
ICQ 986838
Skype Kostohak
Jabber derevo@jabber.ru

Репутация: 30
Репутация: 30
Сказал(а) спасибо: 42
Поблагодарили 10 раз(а) в 7 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.



Button1 - сохраняет текст введенный в Edit1 в файл
Button2 - загружает текст из файла в Edit1.
дак вот, после загрузки текста из файла в edit1, там появляются какие-то символы. Как исправить, чтоб после загрузки они не появлялись

Вот код, который использую для сохранения и загрузки:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var s: TStringList;
begin
  s := TStringList.Create;
  s.Add(edit1.Text);
  s.SaveToFile('D:\1.txt');
  s.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
s : TStringList;
begin
s := TStringList.Create;
s.LoadFromFile('D:\1.txt');
Edit1.Text := s.Text;
end;
__________________
Вся Америка живет на кредитках, почему бы и нам не пожить на их кредитках.

Жми кнопку "Спасибо"
Derevo вне форума   Ответить с цитированием
Старый 26.01.2012, 17:26   #107 (permalink)
Electro Style (:
 
Аватар для Rastayan
 
Регистрация: 27.01.2010
Сообщений: 232
Member ID: 6155

Репутация: 550
Репутация: 550
Сказал(а) спасибо: 211
Поблагодарили 280 раз(а) в 152 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

Возможно реализовать программу на delphi "Поиск оператора по номеру телефона", что для этого нужно??? Иногда надо проверить номер мобильного телефона с какого оператора звонили...
Rastayan вне форума   Ответить с цитированием
Старый 26.01.2012, 17:34   #108 (permalink)
SOCKS4
 
Регистрация: 27.09.2011
Сообщений: 164
Member ID: 19312

Репутация: 119
Репутация: 119
Сказал(а) спасибо: 42
Поблагодарили 41 раз(а) в 34 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

Rastayan, очевидно, что нужна какая-то база с кодами операторов. Или можно найти сайт с кодами операторов и ходить туда из приложения.
madvet вне форума   Ответить с цитированием
Пользователь сказал cпасибо:
Ответ

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Вкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопросы которые вы хотели задать, но боялись спросить 2FED Флейм 210 12.05.2015 21:43
Delphi. С чего же начать? Xsena Программирование 25 12.10.2009 19:04
Ответы на Частозадаваемые Вопросы :) aka_NooB Информация об ICQ 0 27.05.2009 23:40




DDoS Protected




Мы в твиттере, Proxy-Base.Org Twitter

Proxy-Base Community - Анонимность и безопасность в интернете.
Наши партнеры: CRC Labs, SEO-Crack.Com, Garsuk.Com, SED Team, Skladchik.com, BSS Family

Powered by vBulletin® | Булка сделана в пекарне®
Copyright © 2000 - , Jelsoft Enterprises Ltd. Перевод: zCarot
Вся информация на сайте выложена исключительно в ознакомительных целях.