1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

{ 
{ 
       
       
      
{ 
{ 
}     
}      
      
}     
{ 
      
}     
{ 
      
{ 
      
{ 
}     
}     
}     
}					

1:

g_a_blocks   : array[1..255,1..2] of longword;					

1:
2:

1   2   6   7   12  15  17  19
23  11  9   8   14  22  21  20					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

function blockparse(s_filename:string;inzeile:longword):longword;
  var
    f_scriptfile         : textfile;
    s_block              : string;
    i_zeile              : Longword;

  begin
  AssignFile(f_scriptfile, s_filename);
  Reset(f_scriptfile);

  i_zeile := 0;
   while not eof(f_scriptfile) do
    begin
      Readln(f_scriptfile,s_block);
      inc(i_zeile);

      if i_zeile >= inzeile then
        begin
          if pos('{',s_block) >= 1 then
            begin
              inc(g_a_blocks[1,1]);
              if g_a_blocks[1,2] > 0 then
                begin
                  g_a_blocks[g_a_blocks[1,1]+g_a_blocks[1,2]-1,2] := blockparse(s_filename,i_zeile+1);
                  g_a_blocks[g_a_blocks[1,1]+g_a_blocks[1,2]-1,1] := i_zeile;
                  inzeile := g_a_blocks[g_a_blocks[1,1]+g_a_blocks[1,2]-1,2]+1;
                end
              else
                begin
                  g_a_blocks[g_a_blocks[1,1]+1,2] := blockparse(s_filename,i_zeile+1);
                  g_a_blocks[g_a_blocks[1,1]+1,1] := i_zeile;
                  inzeile := g_a_blocks[g_a_blocks[1,1]+1,2]+1;
                end;
              dec(g_a_blocks[1,1]);
            end;
        end;

       if i_zeile >= inzeile then
        begin
          if pos('}',s_block) >= 1 then
            begin
              result:= i_zeile;
              inc(g_a_blocks[1,2]);
              exit;
            end;
        end;

    end;

end;					

1:
2:

1   2   6   7   12  0   0  15
23  11  9   8   14  0   0  22					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

procedure StartParser;
var
  s : TStringList;
  st, ar : Integer;
  a : array[0..255,1..2] of Integer;
procedure Parse;
var
  x : Integer;
begin
  while s[st][1] <> '}' do
  begin
    if s[st][1] = '{' then
    begin
      a[ar,1]:=st+1;
      Inc(ar);
      Inc(st);
      Parse;
    end;
    Inc(st);
    if st >= s.Count then Exit;
  end;
  for x:=ar-1 downto 0 do
    if a[x,2] = 0 then
    begin
      a[x,2]:=st+1;
      Break;
    end;
end;
begin
  s:=TStringList.Create;
  s.LoadFromFile('HALLO.TXT');
  ar:=0;
  st:=0;
  FillChar(a,SizeOf(a),0);
  Parse;
  s.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

var
 Strings: TStringList;
 Stack: TStack;
 i, j: Integer;
begin
 Strings := TStringList.Create;
 Strings.LoadFromFile('hallo.txt');
 Stack := TStack.Create;
 j := 0;
 for i := 0 to Strings.Count-1 do
  if pos('{',Strings[i])>0 then
  begin
   inc(j);
   g_a_blocks[Integer(Stack.Push(Pointer(j))),1] := i+1;
  end else
   if pos('}',Strings[i])>0 then
    g_a_blocks[Integer(Stack.Pop),2] := i+1;
 Stack.Free;
 Strings.Free;
end;