There is a procedure that writes data to the file:

PROCEDURE SAVE(X1:REAL;K:STRING;Mstr:INTEGER); VAR V:STRING; BEGIN ASSIGN(F,'SIMPLEX.DAT'); APPEND(F); CASE Mstr OF 0:WRITELN(F,''); 1:BEGIN IF K=' ' THEN STR(X1:1:0,V) ELSE STR(X1:10:4,V); WRITE(F,V); WRITE(F,' '); END; 2:WRITE(F,K); 3:WRITELN(F,K); END; CLOSE(F); END;

How do you need to rewrite procedures so that all data is not written to a file, but output, say, to the Edit component ( Edit1.Text:=... )?

    1 answer 1

    You need to rewrite it like this: go through all the places of writing to the file and replace the writing to the file with the writing to the component. That is, instead of WRITE (F, ...), enter edit.Text = ...