Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Help!!! Kompilacja programu pascal 7.0 - problem

24 views
Skip to first unread message

G.K.

unread,
Jan 8, 2011, 2:00:40 PM1/8/11
to
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.

unread,
Jan 8, 2011, 2:02:12 PM1/8/11
to
W dniu 2011-01-08 20:00, G.K. pisze:

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

G.K.

unread,
Jan 8, 2011, 2:08:41 PM1/8/11
to
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;

Wiktor S.

unread,
Jan 9, 2011, 2:12:40 PM1/9/11
to
> 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

G.K.

unread,
Jan 11, 2011, 3:12:56 PM1/11/11
to
W dniu 2011-01-09 20:12, Wiktor S. pisze:

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.

unread,
Jan 19, 2011, 2:06:05 AM1/19/11
to
> 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

0 new messages