wort zwischen 2 zeichen rauskopieren

[Sir Rufo]

Zitat von himitsu:

Zitat von Sir Rufo:

Hmmm, eine Funktion die ein TMemo ausliest ... und einen string zurückliefert?

TMemo.SelText (statt des Copy), aber sonst bleibt das Vorgehen dennoch gleich.

Ich denke mal wir sind uns einig, dass eine Funktion, die im Wesen eigentlich nur eine String-Manipulation ist, keinen Bezug zu irgendwelchen Controls haben sollte.

Eine Methode, die dann diese Funktion benutzt und die Controls passend zusammen bringt, ja, das ist dann noch ok.

Nur mal so dahergetippt:

Delphi-Quellcode:

function StringBetween( const Str, AfterStr, BeforeStr : string ) : string;
var
  LAfterPos : integer;
  LBeforePos : integer;
begin
  LAfterPos := Pos( AfterStr, Str );
  if LAfterPos = 0 then
    Exit( '' );
  Inc( LAfterPos, Length( AfterStr ) );
  LBeforePos := PosEx( BeforeStr, Str, LAfterPos );
  if LBeforePos < LAfterPos 0 then
    Exit( '' );
  Result := Copy( Str, LAfterPos, LBeforePos - LAfterPos );
end;

procedure TFormX.ExtractSomething;
begin
  Edit1.Text := StringBetween( Memo1.Text, '<h1 itemprop="name">', '</h1>' );
end;