DELPHI : PROCEDURE SPLIT SIMILAIRE A LA FONCTION EPONYME EN VB

Signaler
Messages postés
196
Date d'inscription
jeudi 15 juillet 2004
Statut
Membre
Dernière intervention
14 avril 2009
-
 Keneda -
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/45704-delphi-procedure-split-similaire-a-la-fonction-eponyme-en-vb

var i: integer;
.......
with TStringList.Create do
try
  StrictDelimited:= True; 
  Delimiter:= ';';
  DelimitedText:= 'poux;cailloux;genoux;hiboux;;';  
  for i:= 0 to Count-1 do
     ShowMessage(Strings[i]); 
finally
  Free;
end;
Messages postés
196
Date d'inscription
jeudi 15 juillet 2004
Statut
Membre
Dernière intervention
14 avril 2009

Procédure revue et corrigée (toute exception sera silencieuse).

procedure TfrmDemo.frmDemoOnActivate(Sender: TObject);
procedure setCursor(hWnd:integer; lpCursorName:PAnsiChar);
var
hCur:integer;
begin
hCur:=LoadCursor(0, lpCursorName);
if (hcur<>0) then begin
SetClassLong(hWnd, GCL_HCURSOR, hCur);
DestroyCursor(hCur);
end;
end;
begin
//Déclare et affiche le caractère de délimitation
Delimiter:=';';
lblDelimiter.Caption:= 'Delimiter: "' + Delimiter + '"';
//Curseur des boutons
setCursor(btnSplit.Handle, IDC_HAND);
setCursor(btnClose.Handle, IDC_HAND);
end;
Messages postés
196
Date d'inscription
jeudi 15 juillet 2004
Statut
Membre
Dernière intervention
14 avril 2009

Note : les déclarations des l'API utilisées se trouve dans l'unité Windows.
Messages postés
196
Date d'inscription
jeudi 15 juillet 2004
Statut
Membre
Dernière intervention
14 avril 2009

Pour information des lecteurs, voici les spécifications complètes de l'API qui a fait l'objet de la remarque fondée de notre ami Renfield.

Declaration:
Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As String) As Long

Parameters:
· hInstance
Identifies an instance of the module whose executable file contains the cursor to be loaded.

· lpCursorName
Points to a null-terminated string that contains the name of the cursor resource to be loaded. Alternatively, this parameter can consist of the resource identifier in the low-order word and zero in the high-order word. The MAKEINTRESOURCE macro can also be used to create this value.
To use one of the Win32 predefined cursors, the application must set the hInstance parameter to NULL and the lpCursorName parameter to one the following values:
IDC_APPSTARTING
Standard arrow and small hourglass
IDC_ARROW
Standard arrow
IDC_CROSS
Crosshair
IDC_IBEAM
Text I-beam
IDC_ICON
Obsolete for applications marked version 4.0 or later.
IDC_NO
Slashed circle
IDC_SIZE
Obsolete for applications marked version 4.0 or later. Use IDC_SIZEALL.
IDC_SIZEALL
Four-pointed arrow
IDC_SIZENESW
Double-pointed arrow pointing northeast and southwest
IDC_SIZENS
Double-pointed arrow pointing north and south
IDC_SIZENWSE
Double-pointed arrow pointing northwest and southeast
IDC_SIZEWE
Double-pointed arrow pointing west and east
IDC_UPARROW
Vertical arrow
IDC_WAIT
Hourglass

Return values :
If the function succeeds, the return value is the handle of the newly loaded cursor.
If the function fails, the return value is NULL. To get extended error information, call GetLastError.
Afficher les 15 commentaires