Ich glaub ich bin bl... [TMEMO und TStrings]

[NeoXan]

Ok, auch mit erstellter Instanz klappt es nicht. Das Memo ist definitiv gefüllt.

Wie mache ich die Zuweisung denn mit Stringlist?
Das eigentlich prob ist nämlich folgendes:

Delphi-Quellcode:

procedure DelLast(var Strs: TStrings);
var i,j,k : integer;
begin
 for i := 0 to Strs.Count-1 do
  begin
   if AnsiStartsStr('<TD>',Strs[i]) then
      begin
       for j := -1 to 8 do
         Strs.Delete(i);
       break;
      end;
  end;
end;

var s: TStrings;
begin
 s := TStrings.Create;
 s := Memo1.Lines;
 DelLast(s);
 Memo1.Lines := s;
end;

Das Memo wollt' ich nicht als Parameter übergeben, da ich in der späteren Version mehr oder weniger ohne VCL arbeiten wollte.