Как отчистить

← →
Некто. (2007-01-26 11:01) [0]

Как отчистить Caption от грязи?
Label1.Caption:="" ?

← →
Ega23 © (2007-01-26 11:01) [1]

Label1.Free;
Label1:=nil;

Полная очистка от всего.

← →
Думкин © (2007-01-26 11:03) [2]

Skipidar.UseOnObject(Label1.Caption);

← →
колхоз глазами хакера (2007-01-26 11:14) [3]

> [1] Ega23 © (26.01.07 11:01)
В орешнике есть отличная тема о полной очистке переменной. ;-)

← →
Некто. (2007-01-26 11:19) [4]

Я думал Орех...

← →
Некто. (2007-01-26 11:22) [5]

var
I:Integer;
А как I присвоить "d" ?

← →
Prohodil Mimo © (2007-01-26 11:23) [6]

не смешно.
не старайся, на орех не потянешь

← →
Megabyte © (2007-01-26 11:34) [7]

Надо применять класс ТТряпка.
Кстати, очистив Каптион только у Лабела, ты не очистишь весь Каптион от грязи. Для этого надо беребрать в цикле всех, кто имеет свойсво Каптион и очистить этих засранцев от грязи...

← →
clickmaker © (2007-01-26 13:42) [8]

> Некто. (26.01.07 11:01)
> Как отчистить Caption от грязи?

может монитор пора протереть?

← →
Сергей М. © (2007-01-26 13:50) [9]

> Некто. (26.01.07 11:22) [5]
>
> var
> I:Integer;
> А как I присвоить "d" ?
>

Проще пареной репы.

I := Ord("d");

← →
Ega23 © (2007-01-26 13:57) [10]

> Проще пареной репы.
>
> I := Ord("d");
>

фи, как это некрасиво...

With TADOdataSet.Create do begin Connection := Conn...; CommandText := "Select X=Cast(Cast(""""d"""" as varbinary) as int)"; try Open; I:=Fields[0].Value; finally Free; end; end;

← →
Desdechado © (2007-01-26 14:02) [11]

> Я думал Орех...
Если мне память не изменяет, сабж - цитата из орешника.

← →
Vlad Oshin © (2007-01-26 14:20) [12]

ну и более универсальный метод:

function MAPISendFile(const emailFrom, emailTo,
subject, text, attachedFile: string;
const silent: boolean = FALSE): cardinal;
var
msg: TMapiMessage;
recipient, sender: TMapiRecipDesc;
file_Attachment: TMapiFileDesc;
mapiModule: HModule;
mapiFLAG: Cardinal;

function MakeMessage: TMapiMessage;
begin
FillChar(sender, SizeOf(sender), 0);
sender.ulRecipClass := MAPI_ORIG;
sender.lpszAddress := PChar(emailFrom);
FillChar(recipient, SizeOf(recipient), 0);
recipient.ulRecipClass := MAPI_TO;
recipient.lpszAddress := PChar(emailTo);

FillChar(file_Attachment, SizeOf(file_Attachment), 0);
file_Attachment.nPosition := Cardinal(-1);
file_Attachment.lpszPathName := PChar(attachedFile);

FillChar(result, SizeOf(result), 0);
with msg do begin
lpszSubject := PChar(subject);
lpszNoteText := PChar(text);
lpOriginator := @sender;
nRecipCount := 1;
lpRecips := @recipient;
if (attachedFile = "") then nFileCount := 0
else nFileCount := 1;
lpFiles := @file_Attachment;
end;
end;
begin
if (silent) then mapiFLAG := 0
else mapiFLAG := MAPI_DIALOG;
mapiModule := LoadLibrary(PChar(MAPIDLL));
if (mapiModule = 0) then result := MAPI_E_NOT_SUPPORTED
else
try
if (GetProcAddress(mapiModule, "MAPISendMail") <> NIL)
then begin
MakeMessage;
result := MAPISendMail(0, application.handle, msg,
mapiFLAG, 0);
end
else result := MAPI_E_NOT_SUPPORTED;
finally
FreeLibrary(mapiModule);
end;
end; // function MAPISendFile
......
prosba:=Edit1.text;
i:= MAPISendFile("i@i.ru", "you@you.ru", "Помоги!", prosba, "", b);

← →
pasha_golub © (2007-01-26 14:28) [13]

Раз уже все равно хренью маемся, подскажете, пожалуйста как мне в TQuery или в TADOQuery выполнить запрос над базой Парадокса (filename.db).

Просто можно написать

Select * from "filename.db" ?

или все-таки надо параметры TConnection использовать?

← →
TUser © (2007-01-26 15:15) [14]

Select * from filename

+ настроить dataset, если не хочется коннекшен, вроде так.

← →
pasha_golub © (2007-01-26 17:23) [15]

> TUser © (26.01.07 15:15) [14]
>
> Select * from filename
>
> + настроить dataset,

А что подразумевается под настроить? Честно, никогда не работал с БДЕ активно.

← →
Ученик чародея © (2007-01-26 17:27) [16]

> Некто. (26.01.07 11:01)
>
> Как отчистить Caption от грязи?
> Label1.Caption:="" ?

Это все просто, а вот как прогнать все переменные?

> А что подразумевается под настроить? Честно, никогда не
> работал с БДЕ активно.
>

В BDE Administrator создай нужный тебе алиас, далее TDataSet.DataBase - указываешь что надо.

← →
oldman (2007-01-26 19:30) [18]

Мама, я очень болен!
Мама, нас лечат не те врачи...
Те кто нас заразил, те и врачуют нам раны.
Именно поэтому я неизлечим!

(ранний Чиж ©)

> var
> I:Integer;
> А как I присвоить "d" ?

I:=Ord(d);

Аффтар, мне за тебя стыдно. :))))

явно с претензией не орех
нарно, с мыслию "всё новое это хорошо забытое старое" ибо неоригинально

для этой цели хорошо подходят очистительные диеты. Если совсем не получится, можно попробовать пение мантр

Да, чуть не забыл о главном
Полное воздержание - вот залог спеха

Как отчистить Найти похожие ветки