Loadfile.. scan for block.. add to TStringlist

**Skyruner2**

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:

zusammenfalten · markieren

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:

markieren

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

Loadfile.. scan for block.. add to TStringlist

Loadfile.. scan for block.. add to TStringlist

Forumregeln