DIG Digital Corner
Alles wat je altijd al over computers, hardware, software, internet en elektronische gadgets had willen weten, maar niet op Tweakers.net durft te vragen.
Ik ben bezig met het maken van een database in pascal/delphi. Mijn probleem is dat ik niet weet hoe ik bij het einde van een file kom als het bestand al gegevens bevat. De gegevens moeten dus worden toegevoegd en niet worden overschreven. Hieronder staat een gedeelte van mijn programma.. :
readln(Bestandsnaam);
assign(Bestand, BestandsNaam);
{$I-} Reset(Bestand); {$I+}
IORes:=IOResult;
writeln(IOres);
If IORes = 0 then
begin
writeln('Bestand ',BestandsNaam,' is geopend.');
writeln('Druk op ENTER om verder te gaan.');
ReadLn;
Open:=true
end
else begin
rewrite(Bestand);
writeln('Bestand ',BestandsNaam,' bestaat niet en wordt nu aangemaakt.');
writeln('Druk op ENTER om verder te gaan.');
readln;
Open:=true;
end;
Kan iemand me helpen!???
readln(Bestandsnaam);
assign(Bestand, BestandsNaam);
{$I-} Reset(Bestand); {$I+}
IORes:=IOResult;
writeln(IOres);
If IORes = 0 then
begin
writeln('Bestand ',BestandsNaam,' is geopend.');
writeln('Druk op ENTER om verder te gaan.');
ReadLn;
Open:=true
end
else begin
rewrite(Bestand);
writeln('Bestand ',BestandsNaam,' bestaat niet en wordt nu aangemaakt.');
writeln('Druk op ENTER om verder te gaan.');
readln;
Open:=true;
end;
Kan iemand me helpen!???
Yesterday is History, Today is a gift, Tomorow is Mystery!!
Stel je vraag eens op www.nldelphi.com (HET Delphi Forum).
Daar nemen ze je aan de hand mee!
Daar nemen ze je aan de hand mee!
-= Rogue lvl 66 =- -= Warrior lvl 70 =- -= Warlock lvl 70 =-
----------============= Nordrassil =============----------
----------============= Nordrassil =============----------
Gebruik Append() i.p.v. Reset(). Met Eof() kun je overigens bepalen of je het einde van het bestand bereikt hebt.
Waarom gebruik je niet het stoerdere TFileStream?
Waarom gebruik je niet het stoerdere TFileStream?
Tegenwoordig moet je Dr. Ir. zijn om een beetje correct Nederlands te kunnen neerpleuren.
Abusing semicolons since 1987.
Abusing semicolons since 1987.
Dit lijkt overigens meer op tekstfile bewerking dan op database programmeren. Er zijn zat componenten beschikbaar om verschillende databases via Delphi te benaderen. Tip: ADO.
En inderdaad, check www.nldelphi.com - superforum voor dit soort vragen!
En inderdaad, check www.nldelphi.com - superforum voor dit soort vragen!
|
|
