Jag laddade Turbo Pascal 7 från nätet, mest för skoj, men även för att kunna kompilera små dosprogram.
Nu var detta dock inte så enkelt, för även om jag har programerat delphi i 3-4 år, var ett ReadLn/WriteLn program det enda jag kunde åstakomma.
Inga kommandon verkar vara samma som i object pascal!
Eller det är kanske jag som inte har lagt till rätt grejer i USES listan?
Nåja, jag bestämde mig för att göra ett prgram som visar rad efter rad från en fil, med ett x antal millisekunders mellanrum.
För att kunna referera så skrev jag koden i delphi först. Den funkade alldeles utmärkt.
var source : textfile; tmp : string; //"file of string" funkar i TP7
begin
if FileExists('source.txt') then
begin
AssignFile(source, 'source.txt');
reset(source);
While not Eof(source) do
begin
ReadLn(source, tmp);
WriteLn(tmp);
sleep(10);
end;
CloseFile(source);
end
else WriteLn('"source.txt" not found!');
end.
- - - - - -
Självklart så modifierade jag koden så gott jag kunde men hur jag än gjorde blev det bara en massa fel...
Och hjälpen var inte så mycket till hjälp heller...
Det här fick jag att fungera i TP6.
Istället för Fileexist fick jag koppla bort
Input/Output-checking med $I- för sedan
kolla eventuella fel med IoResult.
Sleep() finns ej i TP6. Istället finns där
Delay() som kräver Crt i uses-satsen.
program abc;
uses Crt;
var source : text; tmp : string;
begin
Assign(source, 'source.txt');
{$I-}
reset(source);
{$I+}
If IoResult=0 then
begin
While not Eof(source) do
begin
Readln(source, tmp);
WriteLn(tmp);
delay(10);
end;
Close(source);
end else WriteLn('"source.txt" not found!');
end.
Jo, det är ett välkännt problem med datorer som är snabbare än 200Mhz. Om det inte påverkar just P2 vet jag inte men Athlon,Celeron och P3 har problemet med vissa TP/BP program jag körde tidigare så det skulle vara konstigt om det fungerade på P2. Det har med processorns hastighet att göra inte vilken processor.
