Witam wszystkich. To mój pierwszy post i mam nadzieje, że nie ostatni. Na początku uprzedzę, że czytałem wszystkie posty dotyczące zapisu i odczytu danych do pliku ale odpowiedzi na moje pytanie nie znalazłem. Do rzeczy.
Robię prostą bazę danych na zaliczenie. Wykładowca zabronił korzystać z bazodanowych komponentów. Porobiłem TEdity których zawartość kopiowana jest do pliku tekstowego w jednym wierszu. Każde następne dopisywanie następuje poniżej ostatniego wiersza. Wygląda to tak:
procedure TForm1.dodanieklientaClick(Sender: TObject);
var
firmy: textfile;
begin
assignfile(firmy, 'C:\Moje dokumenty\Tomek\Delphi\zarzadzanie\firmy.txt');
try
append(firmy);
writeln(firmy, IDfirmy.Text, ' -- ', nazwafirmy.Text,' -- ', miasto.Text,' -- ', ulica.Text,' -- ', kodpocztowy.Text,' -- ', telefon.Text);
IDfirmy.text:=currtostr(strtocurr(IDfirmy.text)+1);
nazwafirmy.Text := '';
miasto.Text := '';
ulica.Text := '';
kodpocztowy.Text := '';
telefon.Text := '';
finally
closefile(firmy);
end;
Problem polega na tym czy tak zapisane dane można potem odczytać. Inaczej: czy da się później wyszukać klienta np. ponazwie ulicy i wprowadzić jego dane do tych samych TEditów? Jeżeli tak to jakie rozwiązanie szukania proponujecie?