Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- function wczytaj( nazwa_pliku:String; var tab: TypTablica): integer;
- var
- plik:text;
- validation:string;
- i, wynik, pomoc_dla_value:integer;
- begin
- assign(plik, 'test.txt');
- reset(plik); // otwarcia już istniejącego pliku w trybie do odczytu
- readln(plik, validation);
- if (validation = 'DataVersion_100') then
- begin
- readln(plik, validation);
- wynik:=StrToInt(validation);
- i:=0;
- while eof(plik) <> true do
- begin
- readln(plik, validation);
- tab[i].name:=validation;
- readln(plik, validation);
- pomoc_dla_value:=StrToInt(validation);
- tab[i].value:=pomoc_dla_value;
- i:= i + 1;
- end;
- wczytaj := wynik; // zwrot ilosc pelnych danych do pobrania name/value
- end
- else
- wczytaj:= -1;
- close(plik); // zawsze musimy zamknac prace z otwartym plikiem
- end;
- procedure zapisz( nazwa_pliku:String; const tab: TypTablica; rozmiar: integer);
- var
- plik:text;
- i:integer;
- begin
- assign(plik, 'abc.txt');
- rewrite(plik);
- for i:=0 to rozmiar-1 do
- begin
- writeln(plik, tab[i].name);
- writeln(plik, tab[i].value);
- end;
- close(plik);
- end;
- function suma( tab:TypTablica; rozmiar:integer; nazwa:String): integer;
- var
- i,licznik:integer;
- begin
- licznik:=0;
- for i:=0 to rozmiar-1 do
- begin
- if (tab[i].name=nazwa) then
- licznik:=licznik+tab[i].value;
- end;
- suma:=licznik;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement