WCM Forum - Einzelnen Beitrag anzeigen

flinx · 03.01.2003, 15:37

Probier mal:

Code:

 var
  f: file of char;
  w1,w2,w3,w4:char;
begin
        w1:='e';
        w2:='n';
        w3:='d';
        Assign(f, 'tpc2.exe');
        Reset(f);
        While not Eof(f) do          
        Begin                          
          Read(f,w4);                   
        end;                           
        Write(f, w1,w2,w3);
        Close(f);
end.

03.01.2003, 15:37	#6
flinx Inventar Registriert seit: 08.04.2001 Beiträge: 3.101	Probier mal: Code: var f: file of char; w1,w2,w3,w4:char; begin w1:='e'; w2:='n'; w3:='d'; Assign(f, 'tpc2.exe'); Reset(f); While not Eof(f) do Begin Read(f,w4); end; Write(f, w1,w2,w3); Close(f); end.