Zitat von
Onz:
oder zu müde....
Schon am hellen Nachmittag?
Delphi-Quellcode:
procedure MyFunc(Lines: TStrings; const Zeichen: array of Char; const PreZeichen: string = '');
var a: Integer;
begin
for a := 0 to High(Zeichen) do
Lines.Add(PreZeichen + Zeichen[a]);
for a := 0 to High(Zeichen) do
MyFunc(Lines, Zeichen, PreZeichen + Zeichen[a]);
end;