Help!!! Kompilacja programu pascal 7.0 - problem - Thread - go-pugleaf

Thread View: pl.comp.lang.pascal

6 messages

[T] Back to Threads [V] Tree View [G] Group Articles

6 total messages Started by G.K. Sat, 08 Jan 2011 19:00

Help!!! Kompilacja programu pascal 7.0 - problem

#93148

Author: G.K.
Date: Sat, 08 Jan 2011 19:00

15 lines
1277 bytes

Witam wszystkich,
Mam pewien programik napisany lata temu, chciałem go skompilować i nie mogę.
W jednym z plików drivers.pas jest fragment
{$ifdef dpmi}
{$L SYSINT.OBP}
{$ELSE}
{$L SYSINT.OBJ}
{$ENDIF}

i kompilator wywala mi błąd
Error 15: File not found (SYSINT.OBJ)
Z tego co widzę, plik drivers to jakiś standardowy plik pascala, pojawia 
się na wielu stronach www. Skąd wziąć ten plik sysint?
Pozdrawiam,
Grzegorz

Re: Help!!! Kompilacja programu pascal 7.0 - problem

#93149

Author: G.K.
Date: Sat, 08 Jan 2011 19:02

20 lines
1561 bytes

W dniu 2011-01-08 20:00, G.K. pisze:
> Witam wszystkich,
> Mam pewien programik napisany lata temu, chciałem go skompilować i nie
> mogę.
> W jednym z plików drivers.pas jest fragment
> {$ifdef dpmi}
> {$L SYSINT.OBP}
> {$ELSE}
> {$L SYSINT.OBJ}
> {$ENDIF}
>
> i kompilator wywala mi błąd
> Error 15: File not found (SYSINT.OBJ)
> Z tego co widzę, plik drivers to jakiś standardowy plik pascala, pojawia
> się na wielu stronach www. Skąd wziąć ten plik sysint?
> Pozdrawiam,
> Grzegorz

Ten plik drivers można znaleźć np tu:
http://kix.fsv.cvut.cz/~vanicek/vyuka_l09/KRYPTIK/RESOURCE/UNITS/DRIVERS.PAS

Re: Help!!! Kompilacja programu pascal 7.0 - problem

#93150

Author: G.K.
Date: Sat, 08 Jan 2011 19:08

36 lines
1867 bytes

W dniu 2011-01-08 20:02, G.K. pisze:
> Ten plik drivers można znaleźć np tu:
> http://kix.fsv.cvut.cz/~vanicek/vyuka_l09/KRYPTIK/RESOURCE/UNITS/DRIVERS.PAS
>

Znalazłem ten plik, ale mam kolejny problem.
W jednym z plików wywali mi komunikat o błędzie:
Error 26: Type mismatch

ścieżka z błędem to:
FormatStr(S, '%2d. %-30s %6d %-6s%8z zl', P);

Cała funkcja:

function TRachList.GetText(Item: Integer; MaxLen: Integer): string;
var
   S: string[80];
   P: record
     Num: Longint;
     Opis: PString;
     Ile: Longint;
     Jedn: PString;
     Wart: Longint;
   end;
begin
   with PRachRec(List^.At(Item))^ do
     begin
       P.Num := Item+1;
       P.Opis := Opis;
       P.Ile := Ilosc;
       P.Jedn := @Jedn;
       P.Wart := WartoscZPodatkiem(Cena, Ilosc, VAT, Rabat);
       FormatStr(S, '%2d. %-30s %6d %-6s%8z zl', P);
     end;
   GetText := S;
end;

Re: Help!!! Kompilacja programu pascal 7.0 - problem

#93151

Author: Wiktor S.
Date: Sun, 09 Jan 2011 19:12

13 lines
1206 bytes

> Mam pewien programik napisany lata temu, chciałem go skompilować i
> nie mogę. W jednym z plików drivers.pas jest fragment

Dlaczego kompilujesz drivers, skoro to standardowy unit Turbo Pascala?

> Error 26: Type mismatch

daj "var S:string;" zamiast "string[80]".



-- 
Azarien

Re: Help!!! Kompilacja programu pascal 7.0 - problem

#93152

Author: G.K.
Date: Tue, 11 Jan 2011 20:12

19 lines
1534 bytes

W dniu 2011-01-09 20:12, Wiktor S. pisze:
>> Mam pewien programik napisany lata temu, chciałem go skompilować i
>> nie mogę. W jednym z plików drivers.pas jest fragment
>
> Dlaczego kompilujesz drivers, skoro to standardowy unit Turbo Pascala?
>
>> Error 26: Type mismatch
>
> daj "var S:string;" zamiast "string[80]".
>
>
>

Prawdę mówiąc to dostałem źródła i nie wiedziałem jak to skompilować. 
Jak kompilowałem główny plik to mi wywalało błędy.
Może ktoś pomoże?
Jak ustawić kompilator i jak w ogóle się kompiluje?
Pozdrawiam,
Grzegorz

Re: Help!!! Kompilacja programu pascal 7.0 - problem

#93153

Author: Wiktor S.
Date: Wed, 19 Jan 2011 07:06

10 lines
1241 bytes

> Prawdę mówiąc to dostałem źródła i nie wiedziałem jak to skompilować.
> Jak kompilowałem główny plik to mi wywalało błędy.
> Może ktoś pomoże?
> Jak ustawić kompilator i jak w ogóle się kompiluje?

ale w czym problem? ;-)


-- 
Azarien

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads