Pascal --> Delphi : recordy

Pawlik67
2002-05-12 14:39
Pawlik67
0

Mam plik danych stworzony w Pascalu
Rekord wygląda następująco

Type=Record
pole1 : Array[1..3] Of Word;
pole2 : Array[0..20] Of Byte;
pole3 : Array[1..2,1..10] Of Longint;
End;

W Delphi napisałem identyczną strukturę rekordu, ale program błędnie mi czyta wyniki. Może ktoś wie dlaczego?
Pozdrawiam {hello}

Pozostało 580 znaków

_LKS_
2002-05-12 14:57
_LKS_
0

w delphi bedzie chyba tak:

type
TPola = Record
pole1 : Array[1..3] Of Word;
pole2 : Array[0..20] Of Byte;
pole3 : Array[1..2,1..10] Of Longint;
end;---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

Pozostało 580 znaków

Pawlik67
2002-05-12 15:07
Pawlik67
0

Sorrki,

Record wygląda tak

Type
wyniki=Record
pole1 : Array[1..3] Of Word;
pole2 : Array[0..20] Of Byte;
pole3 : Array[1..2,1..10] Of Longint;
End;

Pozostało 580 znaków

_LKS_
2002-05-12 15:30
_LKS_
0

sprobuj to:

type
TWyniki = record
pole1 : Array[1..3] of Word;
pole2 : Array[0..20] of Byte;
pole3 : Array[1..2,1..10] of Longint;
end;

i pozniej gdzies w programie

var
Wyniki : TWyniki;
begin
Wyniki.Pole1[1] := 1;
//itd.
end;

--
-=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

Pozostało 580 znaków

Fojcik
2002-05-12 17:55
Fojcik
0

Czym LKS rozni sie twoja definicja od definicji poprzednika ?

Pozostało 580 znaków

_LKS_
2002-05-12 18:38
_LKS_
0

tym ze u mnie jest TWyniki a nie Wyniki :-)
ale to i tak nie ma roznicy i powinno chodzic i tak i tak :-)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

Pozostało 580 znaków

_LKS_
2002-05-12 18:52
_LKS_
0

a chodzilo mi konkretnie o to ze moze pan Pawlik67 nie zadeklarowal zmiennej wskazujacej na jego record :-)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

Pozostało 580 znaków

pq
2002-05-12 20:48
pq
0

Jak dalej zle chodzi odczyt z pliku, sprobuj
&gt
&gttype
&gtTWyniki = packed record
&gt
itd.

zeby wylaczyc wyrownywanie pol.

Rob tak zawsze kiedy tworzysz lub czytasz pliki, a nie bedziesz mial problemow z kompatybilnoscia.
--Pawel

Delphi6

Pozostało 580 znaków

Pawlik67
2002-05-19 23:52
Pawlik67
0

Przepraszam, że długo nie odpisywałem.
Wreszcie jednak udało mi się sprawdzić Wasze propozycje.
Duże piwo dla pg i LKS.
{browar} {browar}
Niezależnie czy zdeklaruję
TWyniki , czy Wyniki...
...ale musi być
Type
Wyniki=packed record
...
...
End;
... i działa.
Dzięki bardzo za podpowiedź {hello}

Pozostało 580 znaków

pq
2002-05-20 16:57
pq
0

&gtDuże piwo dla pg

pq (PQ), jesli mozna prosic... :-) --Pawel

Delphi6

Pozostało 580 znaków

Pawlik67
2002-06-07 11:24
Pawlik67
0

pq napisał:

&gt&gtDuże piwo dla pg
&gtpq (PQ), jesli mozna prosic... :-)

Do pg i LKS...
Miło mi będzie jeśli do tego piweczka dodamy spotkanie.
Puby w W-wie czekają na nas {hello}
Czekam na propozycję {browar} --Pawlik67
Zapraszam :-)
www.vebso.pl
UŻYTKOWNIK 9969489

Pozostało 580 znaków

1 użytkowników online, w tym zalogowanych: 0, gości: 0, botów: 1

Robot: CCBot