[delphi] werken in txtfiles

[CaptBiele]

Ik ben bezig met een soort adressenboekje. Ik ben nog onervaren dus wil eerst leren werken met textfiles. Ik haal dan ook mijn data uit een data.txt.

Zoals in mijn screenshotje te zien is, gebruik ik voor het toonbaar maken van de data een memo.
Ik kan nu bijvoorbeeld makkelijk alle text in het memo saven naar een nieuwe textfile. Echter, ik wil het ook mogelijk maken om direct gegevens aan te passen en deze te saven in de originele data.txt.....

Is het moeilijk om direct een textfile te bewerken en op te slaan? (moet het met streams oid?) Wellicht is het handiger als ik met editBoxen werk....

Kan iemand mij een beetje op weg helpen?, zeggen welke methode ik moet gebruiken?

[Tomatoman]

Je laadt alle tekst uit je tekstfile in een TStringList. Dan kun je de tekst heel gemakkelijk bewerken. De tekst kun je vanuit je TStringList ook weer saven in de tekstfile. De Lines property van een TMemo is trouwens ook een TStringList.

[CaptBiele]

ah ok. Dan moet ik ff de TStringList gaan bestuderen... tnx!

[OZ-Gump]

als ik heel eerlijk ben vind ik dit wel een walgelijke oplossing. Gebruik een databeestje of een bestand met named velden. Op deze manier vraag je gewoon om problemen...

Well..... IMHO

[Tomatoman]

Pas trouwens op voor de valkuil die TStrings heet. TStrings is een abstracte class, waarvan TStringList een descendant is. De abstracte methods in TStrings zijn geïmplementeerd in TStringList. Je creëert zelf nooit een TStrings, maar altijd een TStringList.

Delphi:

var
  S: TStrings;
  SList: TStringList;
begin
  SList := TStringList.Create;    // goed
  try
    SList.Insert(0, 'blaat');
  finally
    SList.Free;
  end;

  S := TStringList.Create;  // goed
  try
    S.Insert(0, 'blaat');
  finally
    S.Free;
  end;

  S := TStrings.Create;   // gevaarlijk, want S is een abstracte class
  try
    S.Insert(0, 'blaat'); // fout! Insert is een abstracte method van TStrings
  finally
    S.Free;
  end;

  SList := TStrings.Create;  // kan niet (geef een compiler error)
  ...
end;

[CaptBiele]

OZ-gump : op zich is natuurlijk het werken met databases veel mooier, maar het gaat even om het leer-aspect. Maar ik wil natuurlijk wel "mooi" leren programmeren.....
heb te weinig ervaring om te zeggen wat mooi/lelijk is..... kun je iets meer vertellen over het gebruik van named-velden?

offtopic:
volgens mij zit jij ook in R2 of niet

tomatoman: tnx voor het voorbeeld!

[ Voor 12% gewijzigd door CaptBiele op 05-04-2003 17:04 ]

[Just_a_Gamer]

Als het grote bestanden worden, dan zou TStringlist langzaam kunnen worden. Je kan dan beter TextFile gebruiken of Records. Het is wel iets meer programmeerwerk. Ik denk dat records zeer goed past voor je applicatie

[CaptBiele]

nou, in mijn situatie is het maar een heel klein bestandje ... paar kb`s

[Tomatoman]

Dan is een TStringList geen probleem.

[Chrizzly]

Als ik het goed begrijp maak je dan voor elke persoon een nieuwe stringlist aan?
Dat kan beter toch? Het ligt er een beetje aan hoe je alle gegevens in data.txt wilt hebben.
StringList, TextFile (AssignFile enz) of streams, het kan allemaal.
ALs je met een bestaand bestand werkt en dat wilt veranderen kun je misschien gewoon een variabele van het type TextFile gebruiken.

CaptBiele schreef op 05 April 2003 @ 17:02:

offtopic:
volgens mij zit jij ook in R2 of niet

Meer mensen van de Fontys?

[CaptBiele]

Chrizzly : nou mijn data.txt (=bestaand bestand) ziet er heel simpel uit:

code:

---------------
test persoon 1
adres 1
woonplaats1
gsmnr1
etc1
---------------
test persoon 2
adres 2
woonplaats2
gsmnr2
etc2
---------------

Ik heb nog geen tijd gehad om TStringList goed te bestuderen, maar uit jouw post kan ik nog niet echt afleiden wat ik het beste kan gebruiken....

[Just_a_Gamer]

Chrizzly schreef op 05 April 2003 @ 21:46:
Als ik het goed begrijp maak je dan voor elke persoon een nieuwe stringlist aan?
Dat kan beter toch? Het ligt er een beetje aan hoe je alle gegevens in data.txt wilt hebben.
StringList, TextFile (AssignFile enz) of streams, het kan allemaal.
ALs je met een bestaand bestand werkt en dat wilt veranderen kun je misschien gewoon een variabele van het type TextFile gebruiken.


[...]
Meer mensen van de Fontys?

Nee TStringList is puur om een tekst bestand in te laden. TStringList is een lijst met strings bijelkaar En is gemakkelijker met het bewerken van data in kleine tekstbestandjes. Om voor elke persoon een object TStringList te creeeren is niet slim. Dus gewoon:

code:

var
  AStringList : TStringList
Begin
  AStringList := TStringList.Create;
  try
    AStringList.LoadFromFile( 'Eenpath' );

   Een for loopje door je lijstje om alle personen op te halen...

  finally 
    FreeAndNil( AStringList );
  end;
End;

[ Voor 16% gewijzigd door Just_a_Gamer op 05-04-2003 22:05 ]

[Verwijderd]

CaptBiele schreef op 05 April 2003 @ 21:56:
Chrizzly : nou mijn data.txt (=bestaand bestand) ziet er heel simpel uit:

code:

---------------
test persoon 1
adres 1
woonplaats1
gsmnr1
etc1
---------------
test persoon 2
adres 2
woonplaats2
gsmnr2
etc2
---------------

Ik heb nog geen tijd gehad om TStringList goed te bestuderen, maar uit jouw post kan ik nog niet echt afleiden wat ik het beste kan gebruiken....

Delphi:

type
  TAdresBoekEntry = record
    Naam: string[255];
    Adres: string[255];
    Woonplaats: string[255];
    GSM: string[255];
    Memo: AnsiString[400];
  end;
  AdresList = file of TAdresEntry;

...

procedure TForm1.Button1Click(Sender: TSender);
var
  DataBestand: file of TAdresBoek;
  i: integer;
begin
  ....
end;

[Creepy]

Verwijderd schreef op 06 April 2003 @ 02:20:
[...]

Delphi:

type
  TAdresBoekEntry = record
    Naam: string[255];
    Adres: string[255];
    Woonplaats: string[255];
    GSM: string[255];
    Memo: AnsiString[400];
  end;
  AdresList = file of TAdresEntry;

...

procedure TForm1.Button1Click(Sender: TSender);
var
  DataBestand: file of TAdresBoek;
  i: integer;
begin
  ....
end;

Leuk dat je ook wat onderbouwing geeft
Anyway.... default in Delphi is een string een ansistring, dus dat verschil hoef je hier niet aan te duiden. Je wilt shortstrings gebruiken? Qua opzet verschilt dit niet zo heel veel van een "platte" textfile hoor. En met deze oplossing vind ik het jammer dat er zoveel extra ruimte word gebruikt voor de opslag.

[Just_a_Gamer]

Creepy schreef op 06 April 2003 @ 10:23:
[...]

Leuk dat je ook wat onderbouwing geeft
Anyway.... default in Delphi is een string een ansistring, dus dat verschil hoef je hier niet aan te duiden. Je wilt shortstrings gebruiken? Qua opzet verschilt dit niet zo heel veel van een "platte" textfile hoor. En met deze oplossing vind ik het jammer dat er zoveel extra ruimte word gebruikt voor de opslag.

Het is wel de oplossing die ik in mijn gedachte had

Maar wat nog mooier zal zijn om met XML files werken en met XMLDocument Als je nu een persoon wilt wijzigen moet je steeds meteen in het document editen of een aparte TObjectList bijhouden met alle personen erin.

[Creepy]

Just_a_Gamer schreef op 06 April 2003 @ 11:20:
[...]


Het is wel de oplossing die ik in mijn gedachte had

Maar wat nog mooier zal zijn om met XML files werken en met XMLDocument Als je nu een persoon wilt wijzigen moet je steeds meteen in het document editen of een aparte TObjectList bijhouden met alle personen erin.

Mag je mij uitleggen waarom een XML file mooier is
Ik ben namelijk 1 van die personen die vind dat XML niet gebruikt moet worden voor data opslag (voor data uitwisseling prima, maar voor opslag zijn betere alternatieven)
Als je van XML gebruikt maakt zul je ook weer een extra conversie slag moeten maken

Je zou i.p.v. een record ook een object TPersoon aan kunnen maken en m.b.v. een Tstream deze lezen van of schrijven naar een file (ok, dan het is geen textfile meer, maar dat is het met een record ook al niet meer).

[Just_a_Gamer]

Ik vind het mooiere structuur van opslaan. Je ziet heel duidelijk wat de waardes zijn van verschillende properties enzo. Je hoeft dan niet met delimeters werken enzo. Als je XML niet overeenkomt aan je DTD of XMLSchema dan zou je een foutmelding kunnen geven etc. Maar tis mijn mening

[windancer]

Creepy schreef op 06 April 2003 @ 12:30:
[...]

Mag je mij uitleggen waarom een XML file mooier is
Ik ben namelijk 1 van die personen die vind dat XML niet gebruikt moet worden voor data opslag (voor data uitwisseling prima, maar voor opslag zijn betere alternatieven)
Als je van XML gebruikt maakt zul je ook weer een extra conversie slag moeten maken

[...]

XML gebruiken is een manier om ervoor te zorgen dat je geen, of ieder geval minder, last hebt van wijzigingen in je data structuur. Stel je voor dat je de record structuur verandert dat zul je of je data files moeten converteren of rekening moeten houden met verschillende versies als je de files inleest.

Maar wat voor een betere alternatieven zie voor data opslag ?

[Verwijderd]

Als je geen database wilt gebruiken en je wilt het simpel houden kan je ook gewoon een ini file gebruiken.

[Creepy]

windancer schreef op 06 April 2003 @ 13:57:
[...]


XML gebruiken is een manier om ervoor te zorgen dat je geen, of ieder geval minder, last hebt van wijzigingen in je data structuur. Stel je voor dat je de record structuur verandert dat zul je of je data files moeten converteren of rekening moeten houden met verschillende versies als je de files inleest.

Maar wat voor een betere alternatieven zie voor data opslag ?

Een database (het zei een compleet dbms of een file structuur ala access, db2, dbf etc.).
Dat minder last van wijzigingen.. tja.. dat heb je ook met een (trouwens zwaar onderschatte) inifile En met een database heb je er m.i. nog minder last van.

[Just_a_Gamer]

Lol laatst dat ik keek was een ini file meer een bestand voor het bijhouden van je instellingen van je applicatie ( sorry van mijn vage zin )

Het kan makkelijk zijn maar daar is het natuurlijk niet voor naar mijn mening

Maar hun opdracht is dermate simpel dat je gewoon in een txt bestand doen dan laat ze het ook proberen op te lossen Ze zijn niet voor niets een Informatica student

[Creepy]

Just_a_Gamer schreef op 06 april 2003 @ 21:54:
Lol laatst dat ik keek was een ini file meer een bestand voor het bijhouden van je instellingen van je applicatie ( sorry van mijn vage zin )

Je bent ook niet helemaal lekker als je grote aantallen gegevens bij gaat houden in een inifile.. maar ja.. het KAN wel

[Enigma69855]

Just_a_Gamer schreef op 06 April 2003 @ 21:54:
Lol laatst dat ik keek was een ini file meer een bestand voor het bijhouden van je instellingen van je applicatie ( sorry van mijn vage zin )

Het kan makkelijk zijn maar daar is het natuurlijk niet voor naar mijn mening

Maar hun opdracht is dermate simpel dat je gewoon in een txt bestand doen dan laat ze het ook proberen op te lossen Ze zijn niet voor niets een Informatica student

Hij is er wel voor, maar je kan het object TIniFile er wel lekker voor misbruiken , erg handig voor je opties idd, maar veel data kan ook, bestand wordt wel wat onoverzichtelijk (ok heel erg onoverzichtelijk). Maar in en uitlezen kan veel makkelijker gaan dan.

[alienfruit]

Je zou natuurlijk ook een ClientDataSet kunnen gebruiken; en de stream hiervan met TFileStream kunnen opslaan naar de hardeschijf of in het xml/metadatafile formaat van Borland natuurlijk... ClientDataSet zit standaard bij Delphi; zowel bijv Professional als Enterprise.

[CaptBiele]

Ik ga in ieder geval niet met XML werken, omdat dit iets buiten de scope ligt van mijn doelstellingen.... en naar mijn gevoel is dit ook niet de ideale toepassing voor XML.

De ini-file lijkt me ook niet echt de oplossing, omdat die idd voor config van appz gebruikt dient te worden...

Zoals het er nu uitziet, zal ik gaan werken met een TStringList (of eventueel een record).

[Verwijderd]

kijk anders even hierna

pretty simple database enginetje, ideaal geschikt voor het opslaan van simple tekst ondersteunt verschillende formaten (inclusief csv)

http://www.mylittlebase.org/

[CaptBiele]

tnx voor de link, milkman!

[Verwijderd]

Creepy schreef op 06 April 2003 @ 10:23:
[...]

Leuk dat je ook wat onderbouwing geeft
Anyway.... default in Delphi is een string een ansistring, dus dat verschil hoef je hier niet aan te duiden. Je wilt shortstrings gebruiken? Qua opzet verschilt dit niet zo heel veel van een "platte" textfile hoor. En met deze oplossing vind ik het jammer dat er zoveel extra ruimte word gebruikt voor de opslag.

Over de opslag hoeven we ons hier geen zorgen om te maken denk ik zo.

In combinatie met een memory mapped file (mmf) en een typed file kan deze methode heel snel zijn. Als aanvulling hierop kun je zelf ff een pseudo index bestand maken die je inleest in een T(String)List.

Het enige nadeel van een memory mapped file is dat deze niet kan groeien. Dus bij het toevoegen van een record moet je ff de huidige pointer onthouden, bestand sluiten, record toevoegen, bestand openen, pointer herstellen.
En voor het wissen van een record kun je het gedeelte allemaal met nullen vullen. En eens in de zoveel tijd de typed file compacten. (Hmm, waar kennen we die term van ?)

[CaptBiele]

sinaasappelsap: dat gaat mij ook weer iets te ver, maar zeker tnx voor info. Ik zal er es wat van gaan bestuderen....