TStringList.GetText

Owned by Merve Yurdakul
Okt. 18, 2017
1 min read

Parameter

() : PChar;

Beschreibung

Die Methode GetText legt einen dynamisch verwalteten Speicherbereich an, der alle Listeneinträge in die String-Liste hinzufügt und reserviert Speicher für den Textpuffer, welche mit dem Wert von der Eigenschaft Text gefüllt wird.

Beispiel

procedure Test_Set_GetText;
var
  text : String;
  TestObj : TStringList;
begin
  TestObj := TStringList.Create;
  try
    TestObj.Add('Hund');
    text := TestObj.GetText();
    TestObj.SetText(text);
    if ('Hund' <> TestObj.Strings[0]) 
      then raise ('Test_Set_GetText Fehler')
      else showmessage(TestObj.DelimitedText);
  finally
    TestObj.free;
  end;
end;