Jhonas

Veja outros tópicos sobre key_event http://scriptbrasil.com.br/forum/index.php...ghlite=keyevent abraço

Coloque um componente CheckBox e um Edit ao lado dele no form e use o código abaixo procedure TForm1.FormActivate(Sender: TObject); begin CheckBox1.Checked := false; Edit1.Enabled := false; end; procedure TForm1.CheckBox1Click(Sender: TObject); begin if CheckBox1.Checked = true then begin Edit1.Enabled := true; Edit1.Clear; Edit1.SetFocus; end else begin Edit1.Clear; Edit1.Enabled := false; end; end; abraço

O erro está na instrução SQL e não na conexão do Zeos. Mostre o código SQL dentro do ZQuery e como foi feita a conexão nas proriedades do ZQuery

experimente instalar um componente ... se der erro na compilação tente descobrir o erro. já fiz isso com outros componente que não eram da minha versão e funcionou abraço

Mais tem como eu fazer o que a função LoadList faz com linha de código! Alguma dica? substitua o IdFTPList.pas , compile e troque as dcus { $HDR$} {**********************************************************************} { Unit archived using Team Coherence } { Team Coherence is Copyright 2002 by Quality Software Components } { } { For further information / comments, visit our WEB site at } { http://www.TeamCoherence.com } {**********************************************************************} {} { $Log: 10165: IdFTPList.pas { { Rev 1.6 2/9/2003 03:04:56 PM JPMugaas { Fix for FTP Unix listings. The time was given for a date in the current { year. The proper behavior is to give the time only if the date is within 6 { monthes of the current date. } { { Rev 1.5 1/20/2003 03:18:08 PM JPMugaas { Backported fix for working with a "Axis NPS 53X FTP Printer Server V4.26". } { { Rev 1.4 1/20/2003 12:42:20 PM JPMugaas { Backported workaround for Distinct FTP Server. That does not return valid { Unix permissions when emulating Unix. { Backported patch for Unix. If a charactor device is in a dir, it is not { parsed correctly. It could not detect Unix directory format if the list { started with a charactor device. } { { Rev 1.3 1/8/2003 07:25:52 AM JPMugaas { Backported a patch to the MS -DOS parser. A recent patch was not handling { 12:00 AM properly causing it to return 12:00PM. } { { Rev 1.2 12/30/2002 9:18:16 AM JPMugaas { Patch from Andrew P. Rybin for where the count column and the file size { column are rammed together. } { { Rev 1.1 12/12/2002 03:16:06 PM JPMugaas { Backported updated MS-DOS parser from Indy 10. A bug would be triggered { with "MS-DOS-MicrosoftFTP5.0-1.txt". The parser would locate the first 43 in { a seconds portion of the dir entry instead of the file size column which also { contained 43. Thanks, Jeff Easton for reporting this little gem. Also { removed some unneeded variables from the MS-DOS parser. } { { Rev 1.0 2002.11.12 10:39:00 PM czhower } unit IdFTPList; { - Fixes as per user request for parsing non-detailed lists (SP). [Added flfNoDetails list format]. Initial version by D. Siders Integral Systems October 2000 Additions and extensions A Neillans Apr.2002 - Fixed bug with MSDos Listing format - space in front of file names. Sep.2001 & Jan.2002 - Merged changes submitted by Andrew P.Rybin Doychin Bondzhev (doychin@dsoft-bg.com) dSoft-Bulgaria February 2001 - TFTPListItem now descends from TCollectionItem - TFTPList now descends from TCollection Jun 2001 - Fixes in UNIX format parser Aug 2001 - It is now used in the FTP server component } interface uses Classes, SysUtils, IdException, IdGlobal; { Indy TIdFtp extensions to support automatic parsing of FTP directory listings } type EIdInvalidFTPListingFormat = class(EIdException); // TFTPListFormat directory listing format. flfNone, flfUnknown, flfCustom are not parsed TIdFTPListFormat = (flfNone, flfDos, flfUnix, flfVax, flfNoDetails, flfUnknown, flfCustom); TIdDirItemType = (ditDirectory, ditFile, ditSymbolicLink); TIdFTPListItems = class; // TIdFTPListItem stores an item in the FTP directory listing TIdFTPListItem = class(TCollectionItem) protected FSize: Int64; FItemCount: Integer; FData: string; FFileName: string; FGroupPermissions: string; FGroupName: string; FOwnerPermissions: string; FOwnerName: string; FUserPermissions: string; FModifiedDate: TDateTime; FLinkedItemName : string; FItemType: TIdDirItemType; // function DoGetCustomListFormat: string; public procedure Assign(Source: TPersistent); override; constructor Create(AOwner: TCollection); override; function Text: string; // property Data: string read FData write FData; property OwnerPermissions: string read FOwnerPermissions write FOwnerPermissions; property GroupPermissions: string read FGroupPermissions write FGroupPermissions; property UserPermissions: string read FUserPermissions write FUserPermissions; property ItemCount: Integer read FItemCount write FItemCount; property OwnerName: string read FOwnerName write FOwnerName; property GroupName: string read FGroupName write FGroupName; property Size: Int64 read FSize write FSize; property ModifiedDate: TDateTime read FModifiedDate write FModifiedDate; property FileName: string read FFileName write FFileName; property ItemType: TIdDirItemType read FItemType write FItemType; property LinkedItemName: string read FLinkedItemName write FLinkedItemName; end; TIdOnGetCustomListFormat = procedure(AItem: TIdFTPListItem; var VText: string) of object; TIdOnParseCustomListFormat = procedure(AItem: TIdFTPListItem) of object; // TFTPList is the container and parser for items in the directory listing TIdFTPListItems = class(TCollection) protected FDirectoryName: string; // procedure SetDirectoryName(const AValue: string); protected FOnGetCustomListFormat: TIdOnGetCustomListFormat; FOnParseCustomListFormat: TIdOnParseCustomListFormat; FListFormat: TIdFTPListFormat; // function GetItems(AIndex: Integer): TIdFTPListItem; procedure ParseDOS(AItem: TIdFTPListItem); procedure ParseUnix(AItem: TIdFTPListItem); //APR procedure ParseVax(AItem: TIdFTPListItem); procedure SetItems(AIndex: Integer; const Value: TIdFTPListItem); public function Add: TIdFTPListItem; function CheckListFormat(Data: string; const ADetails: Boolean = False): TIdFTPListFormat; virtual; constructor Create; overload; function IndexOf(AItem: TIdFTPListItem): Integer; procedure LoadList(AData: TStrings); procedure Parse(ListFormat: TIdFTPListFormat; AItem: TIdFTPListItem); procedure ParseUnknown(AItem: TIdFTPListItem); procedure ParseCustom(AItem: TIdFTPListItem); virtual; // property DirectoryName: string read FDirectoryName write SetDirectoryName; property Items[AIndex: Integer]: TIdFTPListItem read GetItems write SetItems; default; property ListFormat: TIdFTPListFormat read FListFormat write FListFormat; property OnGetCustomListFormat: TIdOnGetCustomListFormat read FOnGetCustomListFormat write FOnGetCustomListFormat; property OnParseCustomListFormat: TIdOnParseCustomListFormat read FOnParseCustomListFormat write FOnParseCustomListFormat; end; implementation Uses IdResourceStrings, IdStrings; { TFTPListItem } constructor TIdFTPListItem.Create(AOwner: TCollection); begin inherited Create(AOwner); Data := ''; {Do not Localize} FItemType := ditFile; OwnerPermissions := '???'; {Do not Localize} GroupPermissions := '???'; {Do not Localize} UserPermissions := '???'; {Do not Localize} ItemCount := 0; OwnerName := '????????'; {Do not Localize} GroupName := '????????'; {Do not Localize} Size := 0; ModifiedDate := 0.0; FileName := ''; {Do not Localize} LinkedItemName := ''; {Do not Localize} end; procedure TIdFTPListItem.Assign(Source: TPersistent); Var Item: TIdFTPListItem; begin Item := TIdFTPListItem(Source); Data := Item.Data; ItemType := Item.ItemType; OwnerPermissions := Item.OwnerPermissions; GroupPermissions := Item.GroupPermissions; UserPermissions := Item.UserPermissions; ItemCount := Item.ItemCount; OwnerName := Item.OwnerName; GroupName := Item.GroupName; Size := Item.Size; ModifiedDate := Item.ModifiedDate; FileName := Item.FileName; LinkedItemName := Item.LinkedItemName; end; { TFTPList } constructor TIdFTPListItems.Create; begin inherited Create(TIdFTPListItem); ListFormat := flfUnix; end; function TIdFTPListItems.Add: TIdFTPListItem; begin Result := TIdFTPListItem(inherited Add); end; procedure TIdFTPListItems.LoadList(AData: TStrings); var iCtr: Integer; LStartLine: Integer; AItem: TIdFTPListItem; begin Clear; // Some Unix ftp servers retunr 'total' in the first line of the directory listing {Do not Localize} if (FListFormat = flfUnix) and (AData.Count > 0) and (IndyPos('TOTAL', UpperCase(AData.Strings[0])) = 1) then begin {Do not Localize} LStartLine := 1; end else begin LStartLine := 0; end; for iCtr := LStartLine to AData.Count - 1 do begin if NOT IsWhiteString(AData.Strings[iCtr]) then begin AItem := Add; AItem.Data := AData.Strings[iCtr]; try if (ListFormat <> flfNone) then begin Parse(ListFormat, AItem); end; except {on E: Exception do raise EIdException.Create('Please report this exception into Indy Bug list.' + #13 + E.Message + #13 + AItem.Data);} // When We don't know the exact listing type we will just ignore it and nothing will happen Clear; end; end; end;//for end; function TIdFTPListItems.CheckListFormat(Data: string; const ADetails: Boolean = false): TIdFTPListFormat; function IsUnixItem(SData: string): Boolean; begin //pos 1 values // d - dir // - - file // l - symbolic link // b - block device // c - charactor device // p - pipe (FIFO) // s - socket result := (SData[1] in ['L','D', '-','B','C','P','S']) and {Do not Localize} (SData[2] in ['T','S','R','W','X','-']) and {Do not Localize} {Distinct TCP/IP FTP Server-32 3.0 errs by reporting an 'A" here } (SData[3] in ['T','S','R','W','X','-','A']) and {Do not Localize} (SData[4] in ['T','S','R','W','X','-']) and {Do not Localize} {Distinct TCP/IP FTP Server-32 3.0 errs by reporting an 'H" here for hidden files} (SData[5] in ['T','S','R','W','X','-','H']) and {Do not Localize} (SData[6] in ['T','S','R','W','X','-']) and {Do not Localize} {Distinct's FTP Server Active X may report a "Y" by mistake, saw in manual FTP Server, ActiveX Control, File Transfer Protocol (RFC 959), ActiveX Control, for Microsoft� Windows�, Version 4.01 Copyright � 1996 - 1998 by Distinct Corporation All rights reserved } (SData[7] in ['T','S','R','W','X','-','Y']) and {Do not Localize} (SData[8] in ['T','S','R','W','X','-','A']) and {Do not Localize} {VxWorks 5.3.1 FTP Server has a quirk where a "A" is in the permissions See: http://groups.google.com/groups?hl=en&lr=&ie=UTF-8&oe=utf-8&threadm=slrn73rfie. 1g2.chc%40nasa2.ksc.nasa.gov&rnum=1&prev=/groups%3Fq%3DVxWorks%2BFTP%2BLIST%2 Bformat%2Bdate%26hl%3Den%26lr%3D%26ie%3DUTF-8%26oe%3Dutf-8%26selm%3D slrn73rfie.1g2.chc%2540nasa2.ksc.nasa.gov%26rnum%3D1 } (SData[9] in ['T','S','R','W','X','-']) and {Do not Localize} (SData[10] in ['T','S','R','W','X','-']); {Do not Localize} end; var sData: string; sDir: string; sSize: string; begin Result := flfUnknown; if ADetails then begin SData := UpperCase(Data); if IsUnixItem(SData) or (Pos('TOTAL', SData) = 1) then {Do not Localize} begin Result := flfUnix; end else begin if (IndyPos('DSK:', SData) <> 0) then {Do not Localize} begin Result := flfVax; end else begin sDir := Trim(Copy(SData, 25, 6)); sSize := StringReplace(Trim(Copy(SData, 31, 8)), ',', '', [rfReplaceAll]); {Do not Localize} if ((SData[3] in ['/', '-']) and (SData[6] in ['/', '-'])) and ((sDir = '<DIR>') or ((sDir = '') and {Do not Localize} (StrToInt64Def(sSize, -1) <> -1))) then begin Result := flfDos; end; end; end; end else begin Result := flfNoDetails; end; end; function TIdFTPListItems.GetItems(AIndex: Integer): TIdFTPListItem; begin Result := TIdFTPListItem(inherited Items[AIndex]); end; function TIdFTPListItems.IndexOf(AItem: TIdFTPListItem): Integer; Var i: Integer; begin result := -1; for i := 0 to Count - 1 do if AItem = Items[i] then begin result := i; break; end; end; procedure TIdFTPListItems.Parse(ListFormat: TIdFTPListFormat; AItem: TIdFTPListItem); begin case ListFormat of //flfNone - Data unchanged flfDos: ParseDos(AItem); flfUnix: ParseUnix(AItem); flfVax: ParseVax(AItem); flfNoDetails: AItem.FileName := Trim(AItem.Data); flfCustom: ParseCustom(AItem); flfUnknown: ParseUnknown(AItem); end; end; procedure TIdFTPListItems.ParseDOS(AItem: TIdFTPListItem); var LModified: string; LTime: string; LName: string; LValue: string; LBuffer: string; LPosMarker : Integer; function Y2Year(const AYear : Integer): Integer; { This function ensures that 2 digit dates returned by some FTP servers are interpretted just like Borland's year handling routines. } function CurrentYear : Integer; var LYear, LMonth, LDay : Word; begin DecodeDate(Now,LYear,LMonth,LDay); Result := LYear; end; begin Result := AYear; //Y2K Complience for current code if (Result < 100) then begin if TwoDigitYearCenturyWindow > 0 then begin if Result > TwoDigitYearCenturyWindow then begin Result := Result + (((CurrentYear div 100)-1)*100); end else begin Result := Result + ((CurrentYear div 100)*100); end; end else begin Result := Result + ((CurrentYear div 100)*100); end; end; end; function FindDelim(const AData : String) : String; var i : Integer; begin Result := ''; for i := 1 to Length(AData) do begin if (IdGlobal.IsNumeric(AData[i])=False) then begin Result := AData[i]; Break; end; end; end; function DateMMDDYY(const AData: String): TDateTime; var LMonth, LDay, LYear : Integer; LBuffer : String; LDelim : String; begin LBuffer := AData; LDelim := FindDelim(AData); LMonth := StrToIntDef(Trim(Fetch(LBuffer,LDelim)),0); LDay := StrToIntDef(Trim(Fetch(LBuffer,LDelim)),0); LYear := StrToIntDef(Trim(Fetch(LBuffer,LDelim)),0); LYear := Y2Year(LYear); Result := EncodeDate(LYear,LMonth,LDay); end; function TimeHHMMSS(const AData : String):TDateTime; var LCHour, LCMin, LCSec, LCMSec : Word; LHour, LMin, LSec, LMSec : Word; LBuffer : String; LDelin : String; LPM : Boolean; LAM : Boolean; //necessary because we have to remove 12 hours //if the time was 12:01:00 AM begin LPM := False; LAM := False; LBuffer := UpperCase(AData); if (IndyPos('PM',LBuffer)>0) then begin LPM := True; LBuffer := Fetch(LBuffer,'PM'); end; if (IndyPos('AM',LBuffer)>0) then begin LAM := True; LBuffer := Fetch(LBuffer,'AM'); end; LBuffer := Trim(LBuffer); DecodeTime(Now,LCHour,LCMin,LCSec,LCMSec); LDelin := FindDelim(AData); LHour := StrToIntDef( Fetch(LBuffer,LDelin),0); LMin := StrToIntDef( Fetch(LBuffer,LDelin),0); if LPM then begin //in the 12 hour format, afternoon is 12:00PM followed by 1:00PM //while midnight is written as 12:00 AM //Not exactly technically correct but pritty accurate if LHour < 12 then begin LHour := LHour + 12; end; end; if LAM then begin if LHour = 12 then begin LHour := 0; end; end; LSec := StrToIntDef( Fetch(LBuffer,LDelin),0); LMSec := StrToIntDef( Fetch(LBuffer,LDelin),0); Result := EncodeTime(LHour,LMin,LSec,LMSec); end; begin LModified := Copy(AItem.Data, 1, 2) + '/' + Copy(AItem.Data, 4, 2) + '/' + {Do not Localize} Copy(AItem.Data, 7, 2) + ' '; {Do not Localize} LBuffer := Trim(Copy(AItem.Data, 9, Length(AItem.Data))); // Scan time info LTime := Fetch(LBuffer); // Scan optional letter in a[m]/p[m] LModified := LModified + LTime; // Convert modified to date time try AItem.ModifiedDate := DateMMDDYY(Fetch(LModified)); AItem.ModifiedDate := AItem.ModifiedDate + TimeHHMMSS(LModified); except AItem.ModifiedDate := 0.0; end; LBuffer := Trim(LBuffer); // Scan file size or dir marker LValue := Fetch(LBuffer); // Strip commas or StrToInt64Def will barf if (IndyPos(',', LValue) <> 0) then {Do not Localize} begin LValue := StringReplace(LValue, ',', '', [rfReplaceAll]); {Do not Localize} end; // What did we get? if (UpperCase(LValue) = '<DIR>') then {Do not Localize} begin AItem.ItemType := ditDirectory; end else begin AItem.ItemType := ditFile; AItem.Size := StrToInt64Def(LValue, 0); end; //We do things this way because a space starting a file name is legel if (AItem.ItemType = ditDirectory) then begin LPosMarker := 10; end else begin LPosMarker := 1; end; // Rest of the buffer is item name LName := TrimRight( Copy(LBuffer,LPosMarker,Length(LBuffer ))); AItem.FileName := LName; end; procedure TIdFTPListItems.ParseUnix(AItem: TIdFTPListItem); type TParseUnixSteps = (pusPerm,pusCount,pusOwner,pusGroup,pusSize,pusMonth,pusDay,pusYear,pusTime,pusName,pusDone); var LStep: TParseUnixSteps; LData, LTmp: String; LDir, LGPerm, LOPerm, LUPerm, LCount, LOwner, LGroup: String; LName, LSize, LLinkTo: String; wYear, LCurrentMonth, wMonth, wDay: Word; wHour, wMin, wSec, wMSec: Word; ADate: TDateTime; i: Integer; Begin // Get defaults for modified date/time ADate := Now; DecodeDate(ADate, wYear, wMonth, wDay); DecodeTime(ADate, wHour, wMin, wSec, wMSec); LCurrentMonth := wMonth; LData := AItem.Data; LStep := pusPerm; while NOT (LStep = pusDone) do begin case LStep of pusPerm: begin//1.-rw-rw-rw- LTmp := Fetch(LData); LData := TrimLeft(LData); // Copy the predictable pieces LDir := UpperCase(Copy(LTmp, 1, 1)); LOPerm := Copy(LTmp, 2, 3); LGPerm := Copy(LTmp, 5, 3); LUPerm := Copy(LTmp, 8, 3); LStep := pusCount; end; pusCount: begin LTmp := Fetch(LData); LData := TrimLeft(LData); //Patch for NetPresenz // "-------r-- 326 1391972 1392298 Nov 22 1995 MegaPhone.sit" */ // "drwxrwxr-x folder 2 May 10 1996 network" */ if AnsiSameText(LTmp,'folder') then begin LStep := pusSize; // LStep := pusMonth; end //APR //Patch for overflow -r--r--r-- 0526478 128 Dec 30 2002 DE292000 else begin if (Length(LTmp)>3) and (LTmp[1]='0') then begin LData := Copy(LTmp,2,MaxInt)+' '+LData; LCount := '0'; end else begin LCount := LTmp; end; LStep := pusOwner; end; end; pusOwner: begin LTmp := Fetch(LData); LData := TrimLeft(LData); LOwner := LTmp; (* if (SL[4] > '') and {Do not Localize} //Ericsson Switch FTP returns empty owner. (SL[4][1] in ['A'..'Z','a'..'z']) then begin {Do not Localize} SL.Insert(2, ''); {Do not Localize} end; *) LStep := pusGroup; end; pusGroup: begin LTmp := Fetch(LData); LData := TrimLeft(LData); LGroup := LTmp; LStep := pusSize; end; pusSize: begin //Ericsson Switch FTP returns empty owner if (LData>'') and (LData[1] in ['A'..'Z','a'..'z']) and (FListFormat = flfUnix) then begin LSize := LGroup; LGroup := LOwner; LOwner := ''; end else begin LTmp := Fetch(LData); //This is necessary for cases where are char device is listed //e.g. //crw-rw-rw- 1 0 1 11, 42 Aug 8 2000 tcp // //Note sure what 11, 42 is so size is not returned. if IndyPos(',',LTmp)>0 then begin LData := TrimLeft(LData); Fetch(LData); LData := TrimLeft(LData); LSize := ''; end else begin LSize := LTmp; end; end; LData := TrimLeft(LData); LStep := pusMonth; end; pusMonth: begin // Scan modified MMM LTmp := Fetch(LData); LData := TrimLeft(LData); wMonth := StrToMonth(LTmp); LStep := pusDay; end; pusDay: begin // Scan DD LTmp := Fetch(LData); LData := TrimLeft(LData); wDay := StrToIntDef(LTmp, wDay); LStep := pusYear; end; pusYear: begin LTmp := Fetch(LData); // // Not time info, scan year if IndyPos(':', LTmp) = 0 then begin {Do not Localize} wYear := StrToIntDef(LTmp, wYear); // Set time info to 00:00:00.999 wHour := 0; wMin := 0; wSec := 0; wMSec := 999; // System.Delete(LData,1,1); LStep := pusName; end//if IndyPos(':', SL[7])=0 {Do not Localize} else begin // Time info, scan hour, min // LData := TrimLeft(LData); LStep := pusTime; end; end; pusTime: begin // correct year and Scan hour if LCurrentMonth < wMonth then begin wYear := wYear - 1; end; wHour:= StrToIntDef(Fetch(LTmp,':'), 0); {Do not Localize} // Scan minutes wMin := StrToIntDef(LTmp, 0); // Set sec and ms to 0.999 wSec := 0; wMSec := 999; LStep := pusName; end; pusName: begin LName := LData; LStep := pusDone; end; end;//case LStep end;//while if LDir = 'D' then begin {Do not Localize} AItem.ItemType := ditDirectory; end else if LDir = 'L' then begin {Do not Localize} AItem.ItemType := ditSymbolicLink; end else begin AItem.ItemType := ditFile; end; AItem.OwnerPermissions := LOPerm; AItem.GroupPermissions := LGPerm; AItem.UserPermissions := LUPerm; AItem.ItemCount := StrToIntDef(LCount, 0); AItem.OwnerName := LOwner; AItem.GroupName := LGroup; AItem.Size := StrToInt64Def(LSize, 0); AItem.ModifiedDate := EncodeDate(wYear, wMonth, wDay) + EncodeTime(wHour, wMin, wSec, wMSec); if AItem.ItemType = ditSymbolicLink then begin i := IndyPos(' -> ', LName); {Do not Localize} LLinkTo := Copy(LName, i + 4, Length(LName) - i - 3); LName := Copy(LName, 1, i - 1); AItem.LinkedItemName := LLinkTo; end; AItem.FileName:= LName; End;//ParseUnix procedure TIdFTPListItems.ParseVax(AItem: TIdFTPListItem); begin // TODO: determine special characteristics for VAX other than disk prefix ParseUnix(AItem); end; procedure TIdFTPListItems.ParseUnknown(AItem: TIdFTPListItem); begin raise EIdInvalidFTPListingFormat.Create(RSInvalidFTPListingFormat); end; procedure TIdFTPListItems.ParseCustom(AItem: TIdFTPListItem); begin if Assigned(FOnParseCustomListFormat) then begin FOnParseCustomListFormat(AItem); end else begin raise EIdInvalidFTPListingFormat.Create(RSInvalidFTPListingFormat); end; end; procedure TIdFTPListItems.SetItems(AIndex: Integer; const Value: TIdFTPListItem); begin inherited Items[AIndex] := Value; end; procedure TIdFTPListItems.SetDirectoryName(const AValue: string); begin if not AnsiSameText(FDirectoryName, AValue) then begin FDirectoryName := AValue; Clear; end; end; function TIdFTPListItem.Text: string; var LSize, LTime: string; l, month: Word; function IsIn6MonthWindow(const AMDate : TDateTime):Boolean; //based on http://www.opengroup.org/onlinepubs/007908799/xbd/utilconv.html#usg //For dates, we display the time only if the date is within 6 monthes of the current //date. Otherwise, we send the year. var LCurMonth, LCurDay, LCurYear : Word; //Now LPMonth, LPYear : Word; LMMonth, LMDay, LMYear : Word;//AMDate begin DecodeDate(Now,LCurYear,LCurMonth,LCurDay); DecodeDate(AMDate,LMYear,LMMonth,LMDay); if (LCurMonth - 6) < 1 then begin LPMonth := 12 + (LCurMonth - 6); LPYear := LCurYear - 1; end else begin LPMonth := LCurMonth - 6; LPYear := LCurYear; end; if LMYear < LPYear then begin Result := False; Exit; end; if LMYear = LPYear then begin Result := (LMMonth >= LPMonth); if Result and (LMMonth = LPMonth) then begin Result := (LMDay >= LCurDay); Exit; end; end else begin Result := True; end; end; begin case TIdFTPListItems(Collection).FListFormat of flfNone: Result := Data; flfNoDetails: Result := FileName; //flfUnknown: - No handler flfCustom: Result := DoGetCustomListFormat; flfDos: begin if ItemType = ditDirectory then begin LSize := ' ' + '<DIR>' + StringOfChar(' ', 9); {Do not Localize} end else begin LSize := StringOfChar(' ', 20 - Length(IntToStr(Size))) + IntToStr(Size); {Do not Localize} end; Result := FormatDateTime('mm-dd-yy hh:mma/p', ModifiedDate) + ' ' + LSize {Do not Localize} + ' ' + FileName; {Do not Localize} end; flfUnix, flfVax: begin LSize := '-'; {Do not Localize} case ItemType of ditDirectory: begin Size := 512; LSize := 'd'; {Do not Localize} end; ditSymbolicLink: LSize := 'l'; {Do not Localize} end; LSize := LSize + Format('%3:3s%4:3s%5:3s 1 %1:8s %2:8s %0:8d' {Do not Localize} , [Size, OwnerName, GroupName, OwnerPermissions, GroupPermissions, UserPermissions]); DecodeDate(ModifiedDate, l, month, l); LTime := MonthNames[month] + FormatDateTime(' dd', ModifiedDate); {Do not Localize} if IsIn6MonthWindow(ModifiedDate) then begin LTime := LTime + FormatDateTime(' hh:mm', ModifiedDate); {Do not Localize} end else begin LTime := LTime + FormatDateTime(' yyyy ', ModifiedDate); {Do not Localize} end; // A.Neillans, 20 Apr 2002, Fixed glitch, extra space in front of names. // Result := LSize + ' ' + LTime + ' ' + FileName; {Do not Localize} Result := LSize + ' ' + LTime + ' ' + FileName; {Do not Localize} end; end; end; function TIdFTPListItem.DoGetCustomListFormat: string; begin Result := ''; {Do not Localize} if Assigned(TIdFTPListItems(Collection).OnGetCustomListFormat) then begin TIdFTPListItems(Collection).OnGetCustomListFormat(Self, Result); end; end; end.

O programa pode acessar uma pasta invisivel, foi por isso que te passei um link sobre o comando attrib para que voce possa entender melhor o funcionamento do código abraço

dynamic SQL error SQL error code =-204 table unknown REGISTROS at line 1, column 16. Erro: tabela desconhecida REGISTROS na linha 1, coluna 16 da instrução SQL Ou a tabela não existe, ou nome está errado abraço

Leia a pagina traduzida para o portugues para entender http://translate.google.com.br/translate?h...Dpt-BR%26sa%3DG abraço

Tente neste site http://translate.google.com.br/translate?h...%3Dpt%26tl%3Den abraço

Esta é uma função especifica do componente Indy IdFTP (versão 9, usada pelo delphi 7) abraço

Acho que tem no forum links para apostilas do firebird ... bons estudos abraço

Ao que parece não apagou todos os registros do componente Tente usar o EasyCleaner abraço

Copia(ExtractFilePath(Application.ExeName)+'\Banco.mdb', DirectoryListBox1.Directory); É isso mesmo ??? voce inverteu o comando Copia(DirectoryListBox1.Directory+'\Banco.mdb',ExtractFilePath(Application.ExeName)); OBS: Está dando erro no ExtractFilePath porque voce não colocou Uses ShellApi abraço

Se voce olhou o código direito vai perceber que a pasta ficará invisivel e somente poderá ser desistalada via senha abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...;highlite=macro abraço

Se os botões forem diferentes ( tipo Button e BitBtn ) pode sim .... para isso terá que utilizar o skin builder para alterar a skin http://www.link-rank.com/builder/skinbuilder.htm Veja tambem como utilizar 2 estilos de skin na sua aplicação http://www.link-rank.com/2styles.htm abraço

cls @ECHO OFF title Folder Nome_da_Pasta if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK if NOT EXIST Nome_da_Pasta goto MDLOCKER :CONFIRM echo Tem certeza de que deseja bloquear a pasta (Y/N) set/p "cho=>" if %cho%==Y goto LOCK if %cho%==y goto LOCK if %cho%==n goto END if %cho%==N goto END echo Invalid choice. goto CONFIRM :LOCK ren Nome_da_Pasta "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" echo Folder locked goto End :UNLOCK echo Digite a senha para desbloquear a pasta set/p "pass=>" if NOT %pass%== senha goto FAIL attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Nome_da_Pasta echo Folder Unlocked successfully goto End :FAIL echo Senha Invalida goto end :MDLOCKER md Nome_da_Pasta echo Nome_da_Pasta foi criada com sucesso goto End :End Preste atenção nos seguintes parâmetros em que você precisa mudar ao seu gosto, no caso a senha e o nome da pasta. Então você irá substituir Nome_da_Pasta pelo nome a qual desejar e a obviamente a senha no trecho referido. APENAS SUBSTITUA, NADA DE VÍRGULAS, PARÊNTESES, ETC. Após isso, você salvará o arquivo com a extensão bat. Exemplo: Pasta.bat . Em seguida, abra este mesmo arquivo, a pasta criada surgirá no mesmo local onde foi criado o arquivo .bat. Depois disso você terá um ciclo de bloqueio e de inserção de senha, esse ciclo que lhe permitirá o acesso à pasta, continuando...execute o arquivo novamente e aparecerá uma janela em Dos com a seguinte pergunta: Tem certeza de que deseja bloquear a pasta (Y/N)? , você terá as opções Y para sim e N para não. Selecione Y e dê Enter, a pasta irá desaparecer, acalme-se, ela simplesmente não será exibida no diretório. Apartir desse momento é que você irá sentir a importância de ter uma pasta assim. Execute o arquivo novamente, mais uma vez a tela de Dos irá aparecer perguntando a sua senha, você digitará normalmente e apertará Enter. E então a pasta surgirá, e você poderá usá-la normalmente acrestando novos arquivos, excluindo, etc. Perceba o quanto é importante esta dica, é considerada de extrema necessidade pública. Com ela você tem o "poder" sobre o contéudo da pasta em questão. Para proteção do arquivo BAT converta arquivo BAT em EXE. Este método e a proteção funcionam tanto no Windows XP quanto no Windows Vista. abraço

Amigo ... em vista dos seus outros posts, creio que de graça não vai encontrar o que procura abraço

Tente neste endereço http://downloads.sourceforge.net/project/f...use_mirror=ufpr ou http://www.ibphoenix.com/main.nfs?a=ibphoe...ibp_download_21 abraço

Edit o bpl e retire-o da lista e compile novamente abraço

Voce terá que pensar um pouquinho ... com o comando attrib do MSDOS dá pra fazer alguma coisa para bloquear pastas do windows contra exclusão http://www.computerhope.com/attribhl.htm#03 abraço

Títulos com mais de uma linha no DBGrid abraço

Jogo tetris com código fonte em delphi 5 http://delphi.about.com/gi/o.htm?zi=1/XJ&a...e.fr/tetris.htm abraço

Apostilas sobre o assunto: http://www.delphibr.com.br/artigos/listarave.php http://www.agrosol.com.br/servlet/vercurso?curso=67 http://maikelscheid.blogspot.com/2009/03/e...ve-reports.html http://www.scribd.com/doc/4941622/rave-report-no-delphi abraço

http://www.codigofonte.net/dicas/delphi/17...ras-em-um-tmemo Ou de uma maneira super simples: procedure TForm1.Button1Click(Sender: TObject); begin Edit1.text := Memo1.Lines.Strings[num]; // onde num é o numero da linha do Memo end; abraço