Fast Report virgülden sonraki bilgiler aşağı insin.

[delphist]

S.a. arkadaşlar. Fast reportta database bulunan virgül veya noktalı virgül ile ayrılmış bilgilerin alt alta yazılmasını nasıl sağlayabilirim. Yardımlarınızı bekliyorum. Teşükkerler arkadaşlar.

[mkysoft]

1-Bunu database tarafına fonksiyon yazarak yapabilirsin.
2-Memory Table kullanarak sanal bir tablo oluşturup bunu yazdırabilirsiniz.
3-Rapora bir listbox eklersiniz. OnValueGet olayında virgüllere göre veriyi bölüp list box'a eklersiniz.
En kolayı 3. gözüküyor.

[rsimsek]

Belki şöyle bir çözüm de olabilir; fast report kod kısmında beforeprint olayında yazılacak alan döngü içinde aratılarak virgül/noktalı virgül bulunan yerler #10#13 ile değiştirilerek yapılabilir. Yazdırılma alanı Memo1 ise yaklaşık şöyle bir şey;

Kod: Tümünü seç

procedure Memo1OnBeforePrint(Sender: TfrxComponent);
var
  p: integer;
begin
  while pos(';', Memo1.Text) > 0 do // tüm noktalı virgülleri değiştirene kadar.
  begin
     p := pos(';', Memo1.Text);
     delete(Memo1.Text, p, 1); // noktalı virgül ü sil.
     insert(#10#13, Memo1.Text, p);  // yerine chr(10)+chr(13) ü ekle.
// delete ve insert yerine destekliyor/varsa StringReplace gibi tek bir komut da kullanılabilir.
  end;   
end;

[delphist]

S.a. Recep abi. dediğiniz gibi yaptım ama bir değişiklik olmadı kayıt hala aynı duruyor enter dan dolayı aşağı inme söz konusu olmadı niçin acaba...

[delphist]

Recep abi çok teşekkür ederim. Afterprint te bu şekilde işimi görebildim. Allah razı olsun sizden. Çok ama çokkkkkkkkkk teşekkür ederim.

Eyvallah.. görüşmek üzere