ok es wird ein file geladen mit TXT inhalt.
der gesamte text des files wird in eine TStringList hinzugeführt, und dann wird nach einem block gesucht.
also:
Delphi-Quellcode:
var
filedata, datacontent : tStringlist;
databegin, dataend :integer;
begin
If openDialog1.Files = nil
then showmessage('no file loaded dumbass')
else
begin
filedata.Create;
filedata.AddStrings(opendialog1.Files);
databegin:=filedata.IndexOf(edit1.Text)+1;
dataend:=filedata.IndexOf(edit2.Text)-1;
das file:
Code:
bla bla bla haha jajaj..
nööö dummer text.. bla bla bla
:::Begin:::
uhhh ja..
dass ist interesant
dass will ich haben
:::End:::
noch
mehr
text
edit1.text = :::Begin:::
edit2.text = :::End:::
gut jetzt dass problem:
wie kann ich alles wass zwichen :::begin::: und :::end::: in die "datacontent" TString liste eifügen?
//many thanks in advance
