Re: Help!!! Kompilacja programu pascal 7.0 - problem - Article 93150 - go-pugleaf

Article View: pl.comp.lang.pascal

Article #93150

Back to pl.comp.lang.pascal Previous Next

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

#93150

From: 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;

Technical Details

Message-ID: <igacnp$pvc$1@inews.gazeta.pl>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail

References: <igac8t$oeb$1@inews.gazeta.pl> <igacbk$oeb$2@inews.gazeta.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail
From: "G.K." <grego69@gazeta.pl>
Newsgroups: pl.comp.lang.pascal
Subject: Re: Help!!! Kompilacja programu pascal 7.0 - problem
Date: Sat, 08 Jan 2011 20:08:41 +0100
Organization: "Portal Gazeta.pl -> http://www.gazeta.pl"
Lines: 36
Message-ID: <igacnp$pvc$1@inews.gazeta.pl>
References: <igac8t$oeb$1@inews.gazeta.pl> <igacbk$oeb$2@inews.gazeta.pl>
Reply-To: grego69_NOSPAM@USUN_TO_TEZ_gazeta.pl
NNTP-Posting-Host: cable194106211-134.astral.lodz.pl
Mime-Version: 1.0
X-Trace: inews.gazeta.pl 1294513721 26604 194.106.211.134 (8 Jan 2011 19:08:41 GMT)
X-Complaints-To: usenet@agora.pl
NNTP-Posting-Date: Sat, 8 Jan 2011 19:08:41 +0000 (UTC)
X-User: grego69
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; pl; rv:1.9.2.13) Gecko/20101207 Thunderbird/3.1.7
In-Reply-To: <igacbk$oeb$2@inews.gazeta.pl>
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message