Witam, mój problem polega na tym, że chciałem stworzyć zmienna plikową typu string, więc użyłem w tym celu typu, podałem string[255] a potem zapisać kolejne linijki z tego pliku do tablicy stringów, niestety przy "read(plik, tablica_string[i]);" wywala mi błąd "Error: Typecast has different size (8 -> 256) in assignment" . Potrzebuję tego gdyż tworzę program, który wyszukuje w plikach .pas konkretnych wzorców. Prosiłbym o pomoc.
program project1;
uses
crt;
type
TAB = array[0..1000] of string;
dlugosc = string[255];
var
i, j: integer;
plik : file of dlugosc;
tablica_string : TAB;
rozmiar_pliku : integer;
procedure wczytywanie;
begin
i := 0;
assign(plik, 'plik.pas');
reset(plik);
while not eof(plik) do
begin
i := i + 1;
// for j := 1 to 8 do
read(plik, tablica_string[i]);
end;
close(plik);
end;
begin
wczytywanie;
writeln();
rozmiar_pliku := FileSize(plik);
for i:=1 to 10 do
begin
writeln(tablica_string[i]);
end;
writeln('Rozmiar pliku to: ', rozmiar_pliku);
readln;
end.