Allgemeine Delphi Tipps

[MathiasSimmack]

Aber man kann mit "inc" sehr schön ein Array von null-terminierten Strings durchlaufen.

Delphi-Quellcode:

const
  bla = 'Hallo'#0'Welt!'#0'Hallo'#0'Simmi'#0#0;
var
  p   : pchar;
begin
  p := @bla[1];
  while(p[0] <> #0) do
  begin
    MessageBox(0,p,nil,0);
    inc(p,lstrlen(p) + 1);
  end;
end;