Speziellen Substring aus String kopieren

[Fridolin Walther]

Nunja, prinzipiell würde das ganze so aussehen:

Du suchst mit Pos den String "Edit1.text" in deinem String.
Sobald Du die Position hast, löscht Du mit Delete vom Anfang des Strings bis zur gefundenen Position + 9 (Edit1.Text ist 10 Zeichen lang, aber das E ist von der gefundenen Position schon "inkludier") alle Zeichen im String.
Jetzt beginnt der bearbeitete String mit dem gewünschten variablen String. Allerdings hängt da ja jetzt wie Du meintest noch jede Menge Gewusel hinten dran.
Entsprechend ist der nächste Schritt jetzt, das abschließende Leerzeichen zu finden mit Pos und von dieser Position aus den Rest ebenfalls zu löschen.
Dadurch hast Du den gesuchten String Quasi aus dem Original String "herausgeschnitten".

Hier ist auch eine Demonstration wie das implementiert werden könnte. Ich würde Dir aber empfehlen es basierend auf der Anleitung auch mal selbst zu probieren:

Delphi-Quellcode:

function ExtractSubStringFromString(StringToExtractFrom : string) : string;
var
  StringStart, StringEnd : Integer;
begin
  StringStart := Pos('Edit1.text', StringToExtractFrom);
  if StringStart > 0 then
    begin
      Delete(StringToExtractFrom, 1, StringStart + 9);
      StringEnd := Pos(' ', StringToExtractFrom);
      if StringEnd > 0 then
        begin
          Delete(StringToExtractFrom, StringEnd, Length(StringToExtractFrom));
          Result := StringToExtractFrom;
        end;
    end;
end;

Wenn Du Fragen zur Funktion hast, nur raus damit.