Quelltext laden und durchsuchen

[marabu]

Hi,

Zitat von bonanza:

was muss ich denn der funktion übergeben ?

wofür steht die constante "s" und die variablen "sleft" und "sright" und welchen text durchsucht er ?

das und anderes steht in Beitrag #11 des verlinkten threads.

Zitat von bonanza:

kann man auch irgendwie eine suche so programmieren , dass die alles das wegschneidet, was nicht zwischen 2 gesuchten wörtern liegt ?

Delphi-Quellcode:

const
  S_TEXT
    = 'Ich geh und kaufe Farbe und Pinsel im Nu' + sLineBreak
    + 'eine Rolle Tapete und Nägel dazu.' + sLineBreak
    + 'Der Verkäufer fragt in leutseligem Ton:' + sLineBreak
    + '"Ist das Alles?" Ich sag: "Ja, ''n Hammer hab ich schon!"'
    ;
  S_LEFT = 'eine';
  S_RIGHT = 'dazu';
begin
  ShowMessage(S_LEFT + Between(S_TEXT, S_LEFT, S_RIGHT) + S_RIGHT);
end;

Freundliche Grüße