جستجو یک نام در پراسیجرها و توابع دیتابیس sql
SELECT [Scehma]=schema_name(o.schema_id), o.Name, o.type
FROM sys.sql_modules m
INNER JOIN sys.objects o
ON o.object_id = m.object_id
WHERE m.definition like '%name%'
GO
جستجو در mysql
SELECT * FROM INFORMATION_SCHEMA.ROUTINES WHERE ROUTINE_DEFINITION LIKE "%search_string%";
برای این که این اتفاق نیافتد کافی است مراحل زیر را طی کنید :
اگر در زمان کامپایل با این خطا مواجه شدید project raised exception class eoleexception with message مراحل زیر را دنبال کنید :
Tools > Debugger Options > Language Exceptions و بعد گزینه add را بزنید "EOleException
" را اضافه نمایید
برای فیلتر گذاری روی dbgrideh کافی تنظیمات زیر انجام بدید
uses EhLibMTE;MemTableEh1.Filtered:=true;DBGridEh1.STFilter.Local:=true;DBGridEh1.STFilter.InstantApply:=true;DBGridEh1.STFilter.Visible:=true;
نحوه مرتب سازی dbgrideh در دلفی
procedure TForm1.DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;Column: TColumnEh);
var i,j:Integer;sort_str: String;
begin
for j:=0 to Column.Grid.Columns.Count-1 doif (Column.Grid.Columns[j].Title.SortMarker <> smNoneEh) and (Column.Grid.Columns[j]<>Column)then Column.Grid.Columns[j].Title.SortMarker := smNoneEh;case Column.Title.SortMarker ofsmNoneEh: Column.Title.SortMarker := smDownEh;smDownEh: Column.Title.SortMarker := smUpEh;
end;smUpEh: Column.Title.SortMarker := smNoneEh;
case Column.Title.SortMarker ofsmUpEh :TAdoDataset(DbgridEh1.DataSource.DataSet).Sort := Column.FieldName+' ASC';smDownEh :TAdoDataset(DbgridEh1.DataSource.DataSet).Sort := Column.FieldName+' DESC';smNoneEh :TAdoDataset(DbgridEh1.DataSource.DataSet).Sort := '';end;
end
و یا تنظیمات زیر
uses ehlibADO; dbGrideh1.OptionsEh.dghAutoSortMarking:=true;
نمایش ای پی سیستم در دلفی
انتخاب ده رکورد اول از هر ایتم خاص در sql
SELECT rs.Field1,rs.Field2 FROM ( SELECT Field1,Field2, ROW_NUMBER() OVER (Partition BY Section ORDER BY RankCriteria DESC ) AS Rank FROM table ) rs WHERE Rank <= 10
بایدعبارت https://dl.dropboxusercontent.com را جایگزین https://www.dropbox.com کنیم . در مابقی ادرس تغییری ایجاد نمیشود
The socket components are not installed by default. To use the socket components, you must install the dclsockets<.bpl> package.
To install the socket components:
C:\Program Files (x86)\Embarcadero\Studio\19.0\bin
.برای نمایش عکس از روی url کد زیر استفاده می نماییم
procedure TForm1.Button1Click(Sender: TObject);
var
MS : TMemoryStream;
begin
MS := TMemoryStream.Create;
try
IdHTTP1.get('http://image1.jpg',MS);
ms.Position:=0;
Image1.Picture.LoadFromStream(MS);
finally
FreeAndNil(MS);
end;
end;
نمایش ارایه جیسون در دلفی
uses DBXJSON, System.SysUtils;
ConstStrJson = '['+ '{"EventType":49,"Code":"234","EventDate":"20050202", "Result":1},'+ '{"EventType":48,"Code":"0120","EventDate":"20130201", "Group":"g1"}'+ ']';
procedure ParseJson;
var
LJsonArr : TJSONArray; LJsonValue : TJSONValue; LItem : TJSONValue;begin LJsonArr := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(StrJson),0) as TJSONArray; for LJsonValue in LJsonArr do begin for LItem in TJSONArray(LJsonValue) do Writeln(Format('%s : %s',[TJSONPair(LItem).JsonString.Value, TJSONPair(LItem).JsonValue.Value])); Writeln; end;end;
begin try ParseJson; except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; Readln;end.
تولید یک کد ترکیبی از کاراکترهای کوچک و بزرگ و اعداد در اس کیو ال سرور که می تواند به عنوان مثال برای کد هدیه استفاده شود
DECLARE @new_id VARCHAR(200)
SELECT @new_id = NEWID()SELECT CAST((ABS(CHECKSUM(@new_id))%10) AS VARCHAR(1)) +CHAR(ASCII('a')+(ABS(CHECKSUM(@new_id))%25)) +CHAR(ASCII('A')+(ABS(CHECKSUM(@new_id))%25)) +LEFT(@new_id,3)
post url در دلفی از طریق http
function PostExample: string;
varlHTTP: TIdHTTP;lParamList: TStringList;beginlParamList := TStringList.Create;lParamList.Add('id=1');lHTTP := TIdHTTP.Create;tryResult := lHTTP.Post('http://blahblahblah...', lParamList);finallylHTTP.Free;lParamList.Free;end;end;نمایش json به تفکیکuses system.jsonprocedure TForm1.Button2Click(Sender: TObject);var JSonObject:TJSonObject;st :='{"code":200,"message":"OK","data":{"code":3271,"mobile":"1"}}';JSonValue:TJSonValue; st:string; BeginJsonValue:=JSonObject.ParseJSONValue(st);JSonObject := TJSonObject.Create;memo1.text:=(JsonValue as TJSONObject).Get('code').JsonValue.Value;// JsonValue:=(JsonValue as TJSONObject).Get('data').JsonValue; JSonObject.Free;end;
نمایش ایکون برنامه در taskbar زمان hide شدن فرم اصلی دلفی در dpr پروژه این مقدار رو به این شکل تغییر بدید.
تغییر مرورگر پیش فرض ویندوز با اصلاح مسیر زیر در رجیستری
HKEY_CLASSES_ROOT\http\shell\open\command
HKEY_CLASSES_ROOT\https\shell\open\command