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?

[Webinar] Streamline your web hosting managementRegister Today

x
 
florisbConnect With a Mentor Commented:
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
 
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
All Courses

From novice to tech pro — start learning today.