Discussion:
Help!!! Kompilacja programu pascal 7.0 - problem
(Wiadomość utworzona zbyt dawno temu. Odpowiedź niemożliwa.)
G.K.
2011-01-08 19:00:40 UTC
Permalink
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
G.K.
2011-01-08 19:02:12 UTC
Permalink
Post by G.K.
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
G.K.
2011-01-08 19:08:41 UTC
Permalink
Post by G.K.
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;
Wiktor S.
2011-01-09 19:12:40 UTC
Permalink
Post by G.K.
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?
Post by G.K.
Error 26: Type mismatch
daj "var S:string;" zamiast "string[80]".
--
Azarien
G.K.
2011-01-11 20:12:56 UTC
Permalink
Post by Wiktor S.
Post by G.K.
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?
Post by G.K.
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
Wiktor S.
2011-01-19 07:06:05 UTC
Permalink
Post by G.K.
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
Loading...