BDE problem & game

Is there any other way to do access a database without using
BDE engine install in the user program?

If yes Which is better?

if no how should I include in installation program (I mean the Install Shield for Delphi) so that I can access my database but on the small capacity of installation?

Can you describe for me what should I do if I have created a game only want to record the user save game to the database how should I do it in Delphi is it through BDE Engine? if not how to do it? describe in detail?
LVL 1
lewis_looAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

LischkeCommented:
Hi Lewis,

For a BDE replacment check the following urls out:
http://www.kylecordes.com/bag/sol/modbc.html 
http://www.perio.unlp.edu.ar/modbc/ 


Ciao, Mike
0
florisbCommented:
It's for a game; is it for highscores? You could use the registry easily...

Or use a textfile. Read it ;-seperated if your prog start's and overwrite them all (instead of an update) on close.

Add a free encription component to make the file un-understandable...:-)


I just copy-pasted some code:

Use folowing function to get first item from ;-seperated line (you read the file by line), recall the function for the next values.

function TForm1.LeesVeld(var regel: String; Letop: Boolean; Seperator : String):String;
///
/// take string until first (result); return the rest (regel).
///
begin
if not(Letop) then
  begin
  Result := Copy(regel, 0, pos(Seperator, regel)-1);
  regel := Copy(regel, pos(Seperator, regel)+1, length(regel));
  end
else
  begin
  /// Use Letop (true) if last line contains no info.
  Result := regel;
  end;
/// what to wo with ;;? just return the string '0'
if Result = '' then
   Result := '0';
end;

Use this function something like:
var
PersonBestand: TStringList;

PersonBestand := TStringList.Create;

if not(fileexists(personASCIINaam)) then
   error(13);

try
   PersonBestand.LoadFromFile(PersonASCIINaam);
except on EFOpenError do
   error(14);
end; {try}

for i := 0 to PersonBestand.Count-1 do
  try
    begin
    tmp := PersonBestand.Strings[i];
    pin  := StrToInt(LeesVeld(tmp,false,seperator));
    badge := StrToInt(LeesVeld(tmp,false,seperator));
    waarde := StrToInt(LeesVeld(tmp,false,seperator));
    Naam := LeesVeld(tmp,false,seperator) + ', ' + LeesVeld(tmp,false,seperator);
    Afdeling  := StrToInt(LeesVeld(tmp,false,seperator));
    LeesVeld(tmp,false,seperator);
    Telefoon := StrToInt(LeesVeld(tmp,false,seperator));
    personeels_nummer := Waarde + Telefoon - Afdeling - Badge + PIN;
    /// Afdeling aanpassen, alleen laatste 4 cijfers nodig:
{    afdelingstr := inttostr(afdeling);
    Afdelingstr := Copy(afdelingstr, length(afdelingstr)-3, length(afdelingstr) );
    afdeling := strToInt(afdelingstr);}

  end; {try}

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Delphi

From novice to tech pro — start learning today.