Hallo Luckie,
probiers mal so:
Delphi-Quellcode:
function DeineFunc(..., Level: Integer): ...;
begin
...
DeineFunc(..., Level+1);
end;
Bei mir funktionierts immer so, also wenn du die Funktion mit Level=1 aufrufst, dann brauchst du nur noch 'H'+IntToStr(Level) ausgeben, und du hast deine Ueberschrift
Greetz
alcaeus
[add]
[/add]