4 spørsmål om turbo pascal

1. ja det kan du godt, hvis du bruger TurboVision, et objekt orienteret bibliotek som kom med fra ver. 5.5

2. Læs filen ind og gem den igen under et nyt navn

3. som 2 men gem den et nyt sted, og slet den gamle

4. såvidt jeg husker var der et bibliotek som hed turtel grafik som kan anvendes til grafik

4. Brug Graph.tpu

// BadAss

2. Ja, læs filen og gem den. Eller brug et DOS kald.
  Eksempel på læse/gemme:
  (Buflen kan med fordel øges hvis der arbejdes med store filer)

Const
  buflen = 4096;
var
  FromFile, ToFile: file;
  NumRead: Word;
  buf: array[1..buflen] of char;
begin
  Assign(FromFile, 'C:\FIL1.TXT');
  Reset(FromFile);
  Assign(ToFile,'C:\FIL2.TXT');
  Rewrite(ToFile);
  repeat
    BlockRead(FromFile, Buf, SizeOf(Buf), NumRead);
    BlockWrite(ToFile, Buf, NumRead);
  until NumRead = 0;
  Close(FromFile);
  Close(ToFile);
end;


3. Flytte er det samme som rename, bare med ny sti i stedet for nyt navn.
  Eksempel:

Var
  f: file;
Begin
  Assign(f,'C:\TURBO\FILE.DAT');
  Rename(f,'C:\TEMP\FILE.DAT');
End;

4) Brug graph unit'en. Skærmopløsningen er 640x480 i 16 farver.
Filen egavga.cpi skal være tilstede.
Bemærk at graf-skærmen og tekst-skærmen er helt uafhængige.

Eksempel:

Program Graphics;
Uses Crt, Graph;
  Var GrDriver, GrMode: Integer;
      {These vars are needed to initialize the graphics}
      ch : char;
    Begin
    ClrScr;
    GrDriver := 0;
    GrMode := 0;
    InitGraph (GrDriver, GrMode, '');
    {InitGraph is used to initialize the graphics mode}

    If GraphResult <> 0 Then
        {If an error occurs, print an error message}
      Begin
      WriteLn ('Couldn''t initialize graphics!');
      Halt (0); {This will halt the program}
      End;

    Line (0, 0, 640, 480);
    {Draw a line from point 0, 0 to 640, 480 on the screen}
    {This line will be drawn from the top left corner}
    {to the bottom right corner of the screen.}

    Repeat
      ch := ReadKey;
    Until ch = #27;
    {Repeat until ESC (chr value 27) is pressed}

    CloseGraph;
    {CloseGraph is used to clear the graph-memory
    once the program is done.}

    End.


eksempel på nogle funktioner:

PutPixel (20, 10, 14);
SetColor (12);
Circle (100, 120, 20);

Jeg ser lige om jeg kan finde et eksempel på brug af musen.
Så vidt jeg husker er det ret besværligt.

2, 3)
en anden metode kunne være at generere en batch fil når en fil skal flyttes eller kopires.
og så køre den

Jeg fandt et museeksempel til Turbo 5. TP5 har ingen indbyggede musefunktioner, så man må selv lave sin Unit. Den fylder 15 sider.
Hvis du har en nyere TP er musen muligvis understøttet. Kig efter en fil der hedder mouse.tpu eller noget lignende.

Hvis du ikke kan finde noget bedre, kan jeg godt scanne siderne ind til dig.

Jeg ledte lige på nettet og fandt følgende:

http://pascal.sources.ru/mouse/amouse55.htm

(Mouse unit til TP5.5)