Marc Santhoff wrote:
Hi again,
Am Do, den 29.07.2004 schrieb Marc Santhoff um 06:33:
--- like this ---
var
s1:PChar='something';
this should be
s1:AnsiString='something';
of course ...
Use UniqueString(s2) to get a real copy.
s2:PChar;
begin
s2 := s1;
if (s1 <> s2) then
writeln('Okay
Hi again,
Am Do, den 29.07.2004 schrieb Marc Santhoff um 06:33:
> --- like this ---
> var
> s1:PChar='something';
this should be
s1:AnsiString='something';
of course ...
> s2:PChar;
>
> begin
> s2 := s1;
> if (s1 <> s2) then
> writeln('Okay')
> else
> writeln(':-( only