TStringList.Assign

Parameter

(Source: TPersistent);

Beschreibung

Weist der String-Liste die Strings eines anderen Objekts zu. Die Zuweisung umfasst auch eventuell vorhandene Objekt-Referenzen dieser Strings.

Beispiel

procedure Test_Assign;
var
  list    : TStringList;
  TestObj : TStringList;
begin
  list    := TStringList.Create;
  TestObj := TStringList.Create;
  try
    TestObj.Add('Krokodil');
    list.Assign(TestObj);
    if (list.IndexOf('Krokodil') < 0) 
      then raise ('Test_Assign Fehler')
      else showmessage(TestObj.DelimitedText);
  finally
    list.Free;
    TestObj.Free;
  end;
end;