Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
20.04.2008, 15:14
|
|
Новичок
Регистрация: 18.12.2007
Сообщений: 2
Провел на форуме:
26725
Репутация:
1
|
|
может есть у кого программа для расчета повременной заработной платы в Delphi? если нет, то нет  |
|
|
20.04.2008, 15:37
|
|
Познающий
Регистрация: 01.03.2008
Сообщений: 68
Провел на форуме:
140772
Репутация:
72
|
|
Вот код, который позволяет вводить в едит только циферки(пример взят из делфи ворлд, советую иметь данную базу под рукой):
Код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
vrPos, vrLength, vrSelStart: byte;
const
I: byte = 1;
begin
with Sender as TEdit do
begin
vrLength := Length(Text);
vrPos := Pos(',', Text);
vrSelStart := SelStart; курсора
end;
case Key of
'0'..'9':
begin
if (vrPos > 0) and (vrLength - vrPos > I) and (vrSelStart >= vrPos) then
Key := #0;
end;
',', '.':
begin
if (vrPos > 0) or (vrSelStart = 0) or (vrLength = 0) then
Key := #0
else
Key := #44;
end;
#8: ;
else
Key := #0;
end;
end;
Мля а на 2 вопрос забыл ответить, а зачем тебе такие сложности? кидай Компонент Image указывай в объект инспекторе в свойствj Aling : alCient, загружай картинку в Image и усе будет в шоколаде! 
Последний раз редактировалось Dr.KoD; 20.04.2008 в 15:50..
|
|
|
|
20.04.2008, 16:17
|
|
Познающий
Регистрация: 01.03.2008
Сообщений: 68
Провел на форуме:
140772
Репутация:
72
|
|
[Dezzter]Для особо страждущих вот реализация в несколько строк  :
Код:
begin
case Key of
'0'..'9',#8:
else
Key := #0;
end;
end;
|
|
|
|
20.04.2008, 18:02
|
|
Участник форума
Регистрация: 26.02.2006
Сообщений: 209
Провел на форуме:
2418438
Репутация:
93
|
|
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,comobj, activex, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
row, col,i,XlRowCol: integer;
destrange: olevariant;
excel,sheet,name1: variant;
name,range:string; //***ня какая то....
begin
excel := createoleobject('excel.application');
excel.visible := true;
name1:=excel.workbooks.add; //создать новую таблицу
for i:=1 to 5 do
begin
//две колонки с исходными данными!!!!
excel.activesheet.range['a'+InttoStr(i), ].value := i+1.4;
excel.activesheet.range['b'+InttoStr(i), ].value := i*i;
end;
name:=excel.Charts.Add.name;
excel.Charts.Item[name].ChartType:=1;
excel.Charts.Item[name].ApplyCustomType(4);
excel.ActiveWorkbook.Charts.Item[name].SetSourceData
(Source:=excel.ActiveWorkbook.Sheets.Item[2].Range['a1:a5','b1:b5'],PlotBy:=2);
end;
end.
Хочу что бы в одной диаграмме в excel рисовалось два графика, но чёт не получается, помогите кто знает, плз!! ---- с этим разобрался!!!
другой вопрос : как на ох нанести мои значение!!!
Последний раз редактировалось ToniKapuchon; 20.04.2008 в 21:06..
Причина: с одним вопросом разобрался и исправил!
|
|
|
|
20.04.2008, 18:37
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
А почему просто не использовать записанный в Excel макросы в DELPHI???
http://www.citforum.ru/programming/delphi/vba/
|
|
|
|
20.04.2008, 20:06
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Но файл photo.bmp нужно класть в папку с архивом, как мне сделать так чтобы не нужно было в папку с архивом класть photo.bmp??? Мне сказали что мне в этом может помочь TImageList, но я понятия не имею как это сделать!
в TImageList можно закинуть сами картинки, это как бы хранилище...
в TImage указываешь тот TImageList в котором и находится твои изображения, потом в ImageIndex (кажется) указываешь индекс изображения...
вот собственно говоря и все
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
21.04.2008, 16:55
|
|
Постоянный
Регистрация: 29.09.2007
Сообщений: 617
Провел на форуме:
3250478
Репутация:
999
|
|
Нужно сделать парсер, попустим у меня в файле com.txt есть записи:
превед=медвед
ты бот=сам бот...
И мне нужно сделать чтоб он их отпарсил и после:
if Msg=''//До =
then
begin
ICQClient.SendMessage(UIN,'');//После =
end;
Помогите пожалуйста =) |
|
|
|
21.04.2008, 17:08
|
|
Banned
Регистрация: 13.09.2006
Сообщений: 523
Провел на форуме:
2869410
Репутация:
925
|
|
Сообщение от -Hormold-
Нужно сделать парсер, попустим у меня в файле com.txt есть записи:
И мне нужно сделать чтоб он их отпарсил и после:
Помогите пожалуйста =)
Вобщем за тебя никто не будет писать
А код будет такой:
procedure Msg;
var f : TextFile; Tmp : string;
begin
AssignFile(f,'data.txt');
Reset(f);
while not eof(f) do
begin
ReadLn(f,Tmp);
if Copy(Tmp,1,Pos('=',Tmp))=Msg then ICQClient.SendMessage(Copy(Tmp,Pos('=',Tmp),Length (Tmp));
end;
CloseFile(f);
end;
|
|
|
|
21.04.2008, 17:31
|
|
Постоянный
Регистрация: 29.09.2007
Сообщений: 617
Провел на форуме:
3250478
Репутация:
999
|
|
Жалко, неработате...
Может ещё будут варианты? =(
|
|
|
|
21.04.2008, 19:03
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Сообщение от -Hormold-
Жалко, неработате...
Может ещё будут варианты? =(
Я твоего вопроса не полностью понял....
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
