ďťż

Ładny brzuch

Tworzę program, który zapisuje wyniki w postaci rekordów w pliku.
Niestety krótkie łańcuchy były za krótkie więc wykorzystałem:

type baza = array[1..1000] of char;

A ponadto stworzyłem funkcje, które konwertują typ baza na string i odwrotnie.
Z tą pierwszą nie ma problemu, ale jeżeli druga konwertowała wcześniej string dłuższy niż aktualny, to do aktualnego dodawana jest reszta z poprzedniego, np
1. długi napis
2. TEXTi napis (a miałbyć TEXT);

funkcja wygląda tak:
function konwersja(input: string): baza; var i: integer; begin for i:=1 to length(input) do  result[i]:= input[i]; end;

Co zrobić, aby wyczyścić tablicę przed konwersją, aby ten nadmiar nie zalegał nie psuł mi roboty?
Please, help
Dzięki


procedure czysc(input: baza); var i: integer; begin for i:=1 to 1000 do input[i]:= #0; end;

:blink:

1. Petla : for i:=1 to 1000 do tablica[i]:=#0;
2. Nie wiem czy na statycznych dziala,ale na dynamicznych owszem: ZeroMemory(@tablica, sizeOf(tablica));

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •