Regedit

RegEdit = TRegistry class

Det med din max 50 record\'s det kan du jo selv holde styr på fra dit program. SQL :
Select Count(*) as Rec_Count FROM <TableName>

/Martin

Regedit = Tregistry class
hva?
kan du ikke definerer det mere uddybende.

i sql sætningen, hvor indsætter du 50.

Du skal lave et objekt af typen TRegistry.

Hvis du søger efter TRegistry i Delphi\'s hjælp, står kan du se, hvordan den bruges. Metoderne er temmelig selvforklarende, men hvis du for problemer, så sig bare til.

delphidaner:
har du et eksempel, på hvordan adgangskoden skrives til reg,og hvordan adgangskoden checkes i registry.

Du kan enten bruge TRegistry eller TRegInI det er begge to Classer til at skrive og læse i reg.basen
og du kan finde hjælp og eksempler i online hjælpen og i Delphi\\Demos.

Jeg indsætter ikke 50 i sql sætningen fordi du ikke kan bede alle DataBaser om at begrænse sig om jeg så må sige, så du skal selv lave checket når du sætter en ny rec. ind evt. kan du jo lave det ved opstart også bare for en kontrol.

/Martin

Prøv dette eksempel. Indtast et navn i editboksen og tryk på OK. Registreringsdatabasen undersøges. Hvis nøglen ikke findes (første gang programmet køres) oprettes den. Hvis brugernavnet ikke findes, skrives det ind.
--------------------------
unit Reg_Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Registry,
  StdCtrls;

type
  TForm1 = class(TForm)
    edUsername: TEdit;
    Label1: TLabel;
    btnOK: TButton;
    procedure btnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation

{$R *.DFM}



procedure TForm1.btnOKClick(Sender: TObject);
var
  Registry: TRegistry;
  S: string;
begin
  Registry:=TRegistry.Create;
  Registry.RootKey:=HKEY_LOCAL_MACHINE;
  {True because we want to create it if it doesn’t exist}
  Registry.OpenKey(\'MYKEY\',True);
  S :=Registry.ReadString(\'User\');
  showmessage(S);
  if S=\'\' then Registry.WriteString(\'User\', edUserName.text);
  Registry.Free;
end;

end.

------------------------------