ich tüfftel schon seit ein paar Tagen rum und renne irgend wie im Kreis. Ich habe eine ListView1 die ich gerne Ausdrucken möchte. Aktuell hat die mehrere Spalten aber ich probiere es erst mal nur mit der 1. Spalte die alle Namen beinhaltet und unterschiedlich lang sein kann.
im Lazreport ist ein Feld mit der Variablen [name] angelegt (damals bei MySql ging es ganz leicht und er hatte alles untereinander aufgelistet)... problem hier ist ermal... wenn ich es mal schaffe das in [name] ein Name steht dann nur einer und es werden automatisch mehrere Seiten angelegt und auf jeder Seite steht ein Name und das ist der gleiche
Aktuell sieht mein Quelltext so aus: (ich weiß das der Falsch ist ^^)
Code: Alles auswählen
procedure TFmedi.frReport1GetValue(const ParName: String; var ParValue: Variant);
var i:Integer;
name:string;
name2:String;
begin
if ParName = 'name' then
begin
for i:=0 to ListView1.Items.Count-1 do
begin
name:= ListView1.Items[i].SubItems[0];
name2:=name2+name
end;
ParValue := name2;//ListView1.Selected.SubItems[0];
end;
end;
procedure TFmedi.frUserDataset1CheckEOF(Sender: TObject; var Eof: Boolean);
begin
Eof := FRow > ListView1.ItemIndex - 1;
end;
procedure TFmedi.frUserDataset1First(Sender: TObject);
begin
FRow := 1;
end;
procedure TFmedi.frUserDataset1Next(Sender: TObject);
begin
Inc(FRow);
end;
Ich habe den schon x mal umgeschrieben... entweder der schreibt nix rein oder mehrere Seiten mit dem gleichen Namen Ach ja aktuell schreibt er nur ein Namen wenn ich vorher die ListView angeklickt habe?!?!?!