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

procedure TForm29.Button2Click(Sender: TObject);
begin
  frReport1.ShowReport;
end;

procedure TForm29.Button1Click(Sender: TObject);
begin
  FRReport1.DesignReport;
end;

procedure TForm29.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
if selected then
  ListView1.Items.Item[0];
  Path22 := ExtractFilePath(Application.ExeName)+'Report\Reportsüss.frf';
  frReport1.LoadFromFile(Path22);

if selected then
  ListView1.Items.Item[1];
  Path23 := ExtractFilePath(Application.ExeName)+'Report\Reportmeer.frf';
  frReport1.LoadFromFile(Path23);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm29.ListView1SelectItem(Sender: TObject; Item: TListItem;  
  Selected: Boolean);  
begin  
  if compareText(Item.Caption,'Süsswasser')=0 then
    Path22 := ExtractFilePath(Application.ExeName)+'Report\Reportsüss.frf'
  else
    Path23 := ExtractFilePath(Application.ExeName)+'Report\Reportmeer.frf';  

  frReport1.LoadFromFile(Path22);  
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm29.ListView1SelectItem(Sender: TObject; Item: TListItem;    
  Selected: Boolean);    
begin    
  if compareText(Item.Caption,'Süsswasser')=0 then  
    Path22 := IncludeTrailingBackslash(ExtractFilePath(Application.ExeName))+'Report\Reportsüss.frf'  
  else  
    Path23 := IncludeTrailingBackslash(ExtractFilePath(Application.ExeName))+'Report\Reportmeer.frf';    

   frReport1.LoadFromFile(Path22);    
end;