Mam cos takiego:
VAR
x,y : 0..100;
plik : text;
dostep : string;
...
x := 0;
FOR y := 4 TO 10 DO
BEGIN
x := x + 1;
Assign(plik,'problem*');
Reset(plik);
Readln(plik,dostep);
Close(plik);
Gotoxy(47,y);
Write(dostep);
END;
...
*Problem - Potrzebuje aby plik nazwany był np. d1..d7 ( to reguluje zmienna x) Ale nie moge bo jak chce zrobic :
Assign(plik,'d'+x'.txt'); To wyskakuje słusznie ze niepasuja zmienne (Type Mismatch). Potrzebuje zrobic jakby InToStr w Pascalu.
Help
--Pozdrawiam
Gw