String Question...

How do i convert a PAnsiChar string that is retrieved from a record back to a normal string:

ie: if the PAnsiChar string is returned as:  aaaa#0bbbb#0cccc#0dddd#0

i want to break the PAnsiChar string up into a normal string that will have aaaabbbbccccdddd in it
mantra246Asked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

MamouriCommented:
Hi!

Just use StrCopy fiunction. It must solve the problem

Regards
mantra246Author Commented:
StrCopy and StrLCopy only copies to the first #0  - i need to be able to get the entire line.
zebadaCommented:
PAnsiChar strings are defined to end at the first #0.
How do you decide where the end of your data is?

Regards
Paul
Angular Fundamentals

Learn the fundamentals of Angular 2, a JavaScript framework for developing dynamic single page applications.

mantra246Author Commented:
It is information that is returned by windows in a record - the record contains a list of items with each being ended by a #0 - when i try to get the list it only gives me the first one and not the rest that i know is there.
zebadaCommented:
Then you should define a record in Delphi to accept the data.
For your example data:

TMyRecord = record
  astr: array[0..4] of char; /* Note: must start with 0 index and be large enough to accommodate the #0 terminator char. */
  bstr: array[0..4] of char;
  cstr: array[0..4] of char;
  dstr: array[0..4] of char;
end;

var
  myrecord: TMyRecord;
  var a,b,c,d: string;
begin
  SomeWindowFunction(@MyRecord);
  a := PChar(MyRecord.aStr);
  b := PChar(MyRecord.bStr);
  c := PChar(MyRecord.cStr);
  d := PChar(MyRecord.dStr);
end;

By the way most windows structures are already defined as Delphi records.

Regards
Paul
jcondeCommented:
what about

procedure TForm1.Button1Click(Sender: TObject);
const
  ANSI_LENGTH = 20;
var
  P: PAnsiChar;
  S: String;
  I: Integer;
begin
  P := 'aaaa' + #0 + 'bbbb' + #0 + 'cccc' + #0 + 'dddd' + #0;
  for I := 0 to ANSI_LENGTH do
  begin
    If (P + I)^ <> #0 then
      S := S + (P + I)^;
  end;
  showmessage(s);
end;
jcondeCommented:
my above code has a minor bug ... it should be:

for I := 0 to ANSI_LENGTH -1 do

instead of

for I := 0 to ANSI_LENGTH  do
jcondeCommented:
Since you're dealing with binary data, you MUST know the length of the PAnsiChar variable ... That's unless you have a terminating character at the end of the PAnsiChar string
Wim ten BrinkSelf-employed developerCommented:
I guess the end is marked by a double #0, so walk through the data until you're at the end of it all. An example:

program Project1;

{$APPTYPE CONSOLE}

const
  Data = 'aaaa'#0'bbbbb'#0'ccccccccccc'#0#0;

var
  Value: PAnsiChar = Data;
  Loop: PAnsiChar;
  Line: string;

begin
  Line := Value;
  Loop := Value;
  while (Length(Line) > 0) do begin
    WriteLn(Line);
    while (Loop^ <> #0) do
      Inc(Loop);
    Inc(Loop);
    Line := Loop;
  end;
  Write('Press <Enter>. ');
  ReadLn;
end.

However, if the end of the list isn't ended with a double #0#0 but if you have a fixed amount of elements then you'll need to loop <number_of_items> times through the string value.
mocartsCommented:
hi, all :)
just my two cents..
basically code is same as provided by Alex, but shorter (not faster)

procedure SplitPCharArray(aList: TStrings; pac: PAnsiChar);
var
  l: integer;
begin
  aList.BeginUpdate;
  try
    aList.Clear;
    l := StrLen(pac);
    while l > 0 do begin
      aList.Add(pac);
      inc(pac, l+1);
      l := strLen(pac);
    end;
  finally
    aList.EndUpdate;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SplitPCharArray(Memo1.Lines, 'aaaa'+#0+'bbbb'+#0+'cccc'+#0#0);
end;

wbr, mo.
mocartsCommented:
oops :) you don't  need to split :) ok, here will be join.

function JoinPCharArray(pac: PAnsiChar): string;
var
  l: integer;
begin
  l := StrLen(pac);
  while l > 0 do begin
    Result := Result + pac;
    inc(pac, l+1);
    l := strLen(pac);
  end;
end;

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
jcondeCommented:
I think mocarts has it ....
zebadaCommented:
> It is information that is returned by windows in a record - the record contains a list of items with each being ended by a #0

What is Windows definition of the record?
Why would you want to "parse" the record structure yourself?
That seems like a very backwards way of getting the returned data from the Window's function.
I cannot possibly imagine that Windows would pass back a string constructed like that.

Regards
Paul

jcondeCommented:
zebada,

Although I agree its a very weird way of inter-communicating with a "windows record", I do know several News Feed agents transmit their information (via a VPN, Cable, E0, etc..) just like that ...
zebadaCommented:
Good point!
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Delphi

From novice to tech pro — start learning today.