PosExUltra - Ultimative Stringsuche/Parser

[DeddyH]

Zitat von Blup:

..., damit ist die direkte Übergabe von TStrings-Property nicht möglich.

Delphi-Quellcode:

procedure FillWithNumbers(const aList: TStrings);
var i: integer;
begin
  aList.Clear;
  for i := 0 to 100 do
    aList.Add(Format('%d',[i]));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FillWithNumbers(Memo1.Lines);
end;

Komischerweise funktioniert das bei mir, obwohl ich das wohl schon seit Jahren falsch mache.