[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Спасибо! Усе работает...

Вот еще вопросик:
Вот например в проге есть прогресс бар который заполняется по таймеру после нажатия на кнопку. Как сделать чтобы после заполнения прогресс бара, появлялась вторая форма?
Вот такой вот ламерский у мну вопрос))

 

мда.... через условие, учи основы!

 

PHP:

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.StepIt;
if ProgressBar1.Position = ProgressBar1.Max then Form2.Show;
end;

 

Спасибо, это то, что и надо было))
Только вот эту строчку надо убрать - ProgressBar1.StepIt;
Иначе прогрессбар ходит как по циклу!

 

Не надо, StepIt делает шаг! Если его убрать то оно никогда не заполнится!

 

Я просто другой код вставил

Code:

ProgressBar1.Position := ProgressBar1.Position + 1;

Может из-за этого надо тот удалить...
Да и еще, если добавить тот код, то ProgressBar будет заполняться до бесконечности! Он заполнится, потом с начала и т.д....

Короче вместо этого кода:

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.StepIt;
if ProgressBar1.Position = ProgressBar1.Max then Form2.Show;
end;  

Я вставил этот:

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   ProgressBar1.Position := ProgressBar1.Position + 1;
   if ProgressBar1.Position = 100 then Form4.Show;
end;

И теперь как только заполняется ProgressBar вылазиет другое окно. А то в первом случае не вылазило((

 

Привет
подскажите кодом пожалуйста как удалить ехе после выполнения - чтобы запустил прогу - она отработала и удалилась
и есть ли у кого пример выдирания с машинки разичных данных фтп - мыла - аси и так далее
p.s. по второму вопросу - может просто знаете паблик сорци где есть реализация - посмотрю что и как.
Спасибо

 

Паблик сорцы есть всюду, и даже в этом разделе...

 

[Error] Unit4.pas(86): Undeclared identifier: 'MessageParts'
[Fatal Error] Project1.dpr(8): Could not compile used unit 'Unit4.pas'

Что означает эта ошибкА?

 

Не русским же языком написано:

[Fatal Error] Project1.dpr(8): Could not compile used unit 'Unit4.pas'
Неисправимая ошибка в строке 8 , невозможно скомпилировать используемую часть 'Unit4.pas'
Unit4 in 'Unit4.pas' {Form4};
[Error] Unit4.pas(86): Undeclared identifier: 'MessageParts'
Т.к. неопределенный идентификатор MessageParts в строке 86
Который либо вообще не определен, либо определен в UnitХ.pas и не известен в 'Unit4.pas'
Используй uses UnitX (X номер Unit где определена MessageParts) в 'Unit4.pas'

Зы пока писал сам запутался.

 

Code:

[Error] Unit4.pas(86): Undeclared identifier: 'TIdAttachmentFile'
[Error] Unit4.pas(86): Missing operator or semicolon
[Error] Unit4.pas(86): Incompatible types: 'TComponent' and 'TIdMessageParts'
[Fatal Error] Project1.dpr(8): Could not compile used unit 'Unit4.pas'

Вот другая поблема ошибка вылетает из за этой строки:
TIdAttachmentFile.Create(M.MessageParts, OpenDialog1.FileName);
что я сделал не так помоги пожалуйста.

 

[Fatal Error] Unit4.pas(9): Program or unit 'Unit4' recursively uses itself
Вот какая ошибка после твоего совета, Xserg !!!

 

Справился сам, всем спасибо.

 

FormatDateTime('dddd, d-mmm-yy h:mm:ss',Date+Time) возвращает дату по-русски. Как сделать чтоб данная функция всегда возвращала дату по-английски?

 

Это можно настроить, читай )
http://www.delphisources.ru/pages/faq/faq_delphi_basics/FormatDateTime.php.html

 

А ещё можно получить вот так:

т.е. wMonth -> January = 1, February = 2, and so on.
Создашь массив с именами месяцев Array(January, February, ....) и дней ...

Получаем нужное название месяца = Array[wMonth];

 

GlOFF, GetSystemTime насколько я знаю возвращает время по Гринвичу, оно будет отличаться от твоего времени, чтобы получить время своего часового пояса используйте GetLocalTime.

 

Ок, разобралса

 

Можно на Delphi

Code:

procedure SetLocaleFormatSettings(land:dword);
var i:dword;
    fs:TFormatSettings;
begin
GetLocaleFormatSettings(land,fs);
for i:=1 to 7 do begin
ShortDayNames[i]:=fs.ShortDayNames[i];
LongDayNames[i]:=fs.LongDayNames[i];
                 end;
for i:=1 to 12 do begin
ShortMonthNames[i]:=fs.ShortMonthNames[i];
LongMonthNames[i]:=fs.LongMonthNames[i];
                 end;
end;

var s:string;
begin
SetLocaleFormatSettings(LANG_ENGLISH);
s:=FormatDateTime('dddd, d-mmm-yy h:mm:ss',Date+Time);
SetLocaleFormatSettings(LANG_RUSSIAN);
s:=FormatDateTime('dddd, d-mmm-yy h:mm:ss',Date+Time);

 

Подскажите пожалуйста: как созданному файлу, иконку изменить программно?