hi ich bins wieder mal
also ich habe ne textdatei, und darin will ich was best. suchen. das gute ist das was ich suche steht zwischen 2 parametern. dafuer benutze ich diesen schnipsel:
Delphi-Quellcode:
function Between(Tag1, Tag2, Text: String): String;
begin
Delete(Text,1,Pos(Tag1,Text)+length(Tag1)-1);
Delete(Text,Pos(Tag2,Text),Length(Text));
Result:=Text;
end;
und fuer den button das:
Delphi-Quellcode:
procedure TForm1.Button1Click(SeTObject);
begin
(Between(' Z ','?',Memo1.Text);
end;
leutz eigendlich geht das ganze auch sogar bei mir ging als ich es testete^^
nur beim test habe ich nur einen kleinen bruchteil vom gesamttext benutzt, und es klappte.
eben habe ich mal kurz durchtesten wollen und habe mal den ganzen text durchsuchen gelassen und nix geht nicht!
das witzige ist aber dass beim aufruf von showmessage der inhalt nicht leer war,...sondern der gesamte text der eigendlich durchsucht werden sollte war drin
also ich find das iwi voll komisch...0_o
o0o