Speziellen Substring aus String kopieren

[Fridolin Walther]

Zitat von 13Horst37:

Danke, das werd ich gleich mal ausprobieren. Das einzige was noch nicht stimmt:
Mit Edit1.Text meinte ich eigentlich auch einen String, hab ich leider falsch formuliert. Der ergibt sich eben aus dem Inhalt vom Textfeld Edit1.Text.

Achso ... naja, man kann die Funktion problemlos erweitern das der String nach dem anfänglich gesucht wird, ebenfalls übergeben wird. Siehe hier:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

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

const
  TestString = 'c599he9rc8r834n98cr2u4982543957340954309583409 0942358304298543098503495843098dfsaghdsfiouh';
  DeleteFromHere = '2u498';
begin
  writeln(ExtractSubStringFromString(TestString, DeleteFromHere));
  readln;
end.