Hej, mam problem z moim kodem. Wyrzuca mi kilka błędów, chyba chodzi o brak konwersji.
var
FileName: TFileName;
f: TextFile;
i, miejsce, x, y: Integer;
Str, tmp, grid: String;
//...
repeat
Readln(f, Str);
repeat
begin
miejsce := PosEx(' ', Str, i);
grid = Copy(Str, i, miejsce - i); //Illegal expression
StringGrid1.Cells[x,y] := grid;
i = miejsce + 1; //Illegal expression
end;
until(Eoln(Str)); //Call by var for arg no. 1 has to match exactly: Got "AnsiString" expected "Text"
until(EOF(f));
CloseFile(f);
Błędy w kompilacji zaznaczyłem komentarzami.