Merhaba; listviewdeki satırların çıktısını almak istiyorum; bu işlemi kısmen yapıyorum fakat sorun döngüde mi anlayamadım.
listviewdeki listenin arka arkaya eklenmesi lazımken ikinci satırı en üste ekliyor, bu neden olabilir?
listviewdeki listenin arka arkaya eklenmesi lazımken ikinci satırı en üste ekliyor, bu neden olabilir?
var C1, C2, C3, C4, C5, C6: String; begin Printer.BeginDoc; Printer.Canvas.Font.Style := [fsBold]; Printer.Canvas.Textout(10, 100, XKurum); Printer.Canvas.Font.Style := []; Printer.Canvas.Textout(10, 200, XSube); Printer.Canvas.Textout(10, 300, XTelefon); Printer.Canvas.Textout(10, 400, XAdres); Printer.Canvas.Textout(10, 500, XVergi); Printer.Canvas.Font.Style := []; Printer.Canvas.Textout(10, 600, ''); for I := 0 to Pred(ListV.Items.Count) do begin C1 := ListV.Items[I].SubItems[1] + ' '; C2 := ListV.Items[I].SubItems[2] + ' '; C3 := ListV.Items[I].SubItems[3] + ' '; C4 := ListV.Items[I].SubItems[4] + ' '; C5 := ListV.Items[I].SubItems[5] + ' '; C6 := '%' + ListV.Items[I].SubItems[6] + ' '; Printer.Canvas.Textout(10, I * 700, C1 + C2 + C3 + C4 + C5 + C6); end; Printer.EndDoc; end;
Hayat bazen güzel olabiliyor.