Sorry, that was just
an example, no the types are completely different, I should have made this
clear.
I’m not too good with
pointers, but would the code below be correct for the
implementation.
function
LoadTemplate(Path: String): Pointer;
var
Stream:
TFileStream;
Data:
array[0..43450] of char;
begin
Stream :=
nil;
FillChar(Data,
Sizeof(Data), #00);
Stream :=
TFileStream.Create(Path, fmOpenRead or fmShareDenyWrite);
Stream.Position := 0;
Stream.Read(Data, Stream.Size);
ClearStyle(Result);
ShowMessage(strCantReadDat + MyStylesPath + strExists);
Result :=
@Data;
Stream.Free;
end;
and use it
like:
MyTemplate :=
TTemplate(LoadTemplate(Path)^);
As I said this may
not be correct, but Ive never really used pointers before.
Jason
-----Original
Message-----
From: Andreas
Toth [mailto:[EMAIL PROTECTED]]
Sent: Monday, 14 October 2002 11:14
a.m.
To: Multiple recipients
of list delphi
Subject: RE:
[DUG]: Load different types from one procedure?
I don't
like the sound of using the path as an indicator of how the data is to be
interpreted. A better solution would be to pass in a third parameter
which defines the way the data is to be interpreted, i.e., the record to
use.
By the
way, depending on how much control you have over the data, I would really try
to do away with one of the records, since. after all, they describe the
same same information, just in a different order. Is this really
necessary?
-----Original
Message-----
From:
[EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Jason Coley
Sent: Monday, 14 October 2002
10:29
To: Multiple
recipients of list delphi
Subject: [DUG]: Load different types
from one procedure?
Is there a way I can load
different record type objects using one procedure?
I have
TType1 =
record
intone: integer;
strone: array[1..49] of char;
end;
TType2 =
record
strtwo: array[1..49] of char;
Inttwo: integer;
end;
These types are stored as files
on my system, but I want to have one procedure/function that can load either
type by simply passing the path, can you do this.
I have something like
Procedure LoadTemplate(Path:
String; var Data: array of char);
But this doesn’t work as the
type and array are not compatible.
I think this could be a Monday
morning thing, but I have had two coffee’s!!!!
Jason
