Elikkä nyt on tullu tehtyä tollanen ''osoitekirja'' Niin miten sen saisi tallentamaan niin, että kun seuraavan kerran sen avaat niin siellä näkyy edellisten kertojen tiedot?
StringList sopii moneen (ei ehkä tässä paras mutta tutustumisen arvoinen)A) Esittelet private { private declarations } puhluettelo : TStringList;...B)Luotvar i : Integer;begin puhluettelo := TStringList.Create; puhluettelo.Add('Matti Niemi = 35821234567'); puhluettelo.Add('Mika Niemi = 3589123456');...C) Etsit puhluettelo.Find('Mika',i); ShowMessage(puhluettelo[i]);...D) Talletat puhluettelo.SaveToFile('puhtesti.txt');...E) Avaat puhluettelo.LoadFromFile('puhtesti.txt');..0ÄänestäKommentoi
Listasta näytti loppuosa puuttuvanjoten siinä voisi ollaf. Lasket lukumääränj:=puhluettelo.Count;g. Vapautan sen muististapuhluettelo.Free;0ÄänestäKommentoi
Myös TIniFile sopinee (?)katso:http://keskustelu.suomi24.fi/show.fcgi?category=108&conference=4500000000000646&posting=220000000323106190ÄänestäKommentoi
Vastaukset 3
Vanhimmat
StringList sopii moneen (ei ehkä tässä paras mutta tutustumisen arvoinen)
A) Esittelet
private
{ private declarations }
puhluettelo : TStringList;
...
B)Luot
var i : Integer;
begin
puhluettelo := TStringList.Create;
puhluettelo.Add('Matti Niemi = 35821234567');
puhluettelo.Add('Mika Niemi = 3589123456');
...
C) Etsit
puhluettelo.Find('Mika',i);
ShowMessage(puhluettelo[i]);
...
D) Talletat
puhluettelo.SaveToFile('puhtesti.txt');
...
E) Avaat
puhluettelo.LoadFromFile('puhtesti.txt');
..
Listasta näytti loppuosa puuttuvan
joten siinä voisi olla
f. Lasket lukumäärän
j:=puhluettelo.Count;
g. Vapautan sen muistista
puhluettelo.Free;
Myös TIniFile sopinee (?)
katso:
http://keskustelu.suomi24.fi/show.fcgi?category=108&conference=4500000000000646&posting=22000000032310619