enter problemi.

[elektroumut]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
excelPrg,sayfa:variant;
i,d:integer;
r:variant;
begin
  IBDataSet1.First;
  excelPrg:=createoleobject('excel.application');
  excelPrg.workbooks.add;
  sayfa:=excelPrg.workbooks[1].worksheets[1]; r:=excelPrg.activeworkbook.worksheets[1].cells[1]; 
  i:=0;
  d:=0;
    while Not IBDataSet1.eof do
  begin
   i=i+1;
  d=d+1;
r.cells[1+d,i]:=IBDataSet1.FieldByName('MAGAZAKODU').AsString;
     r.cells[1+d,i+1]:=IBDataSet1.FieldByName('URUN_DEGERLENDIRME').AsString;
IBDataSet1.Next;
     i:=0;
     end;

kodlarıyla fdb vt nından bilgileri excel e aktarıyorum.Ancak enter lar (satır boşlukları benim için problem oluyor.
sheet.range['B2']:=AnsiReplaceStr(DBMemo1.Lines.text,#13,'');
gibi ifadelerle DBMemo i direkt excel e aktarmak istemiyorum.
vt den excel e aktarım yapmak istiyorum.Enter karekteri problemini halletmek için ne yapmalıyım.?

[elektroumut]

şu enter problemini çözmem lazım arkadaşlar.
yapacağım uygulama da kullanıcılardan çoğu vt e client bağlanacak.bir iki tanesi admin bağlanacak.
yani client kullanıcılar vt e sadece bilgi girişi yapacak.memo veya richedit kullanarak.client kullanıcı kendi gireceği bilgiyi direkt memo dan şu kodlarla

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
var
excelPrg,sayfa:variant;
i,d:integer;
r:variant;
  var
  excel, workbook, sheet: variant;
begin
  EXCEL := CREATEOLEOBJECT('EXCEL.APPLICATION');
  EXCEL.VISIBLE :=TRUE;
  WORKBOOK :=EXCEL.WORKBOOKS.ADD;
  SHEET:=WORKBOOK.WORKSHEETS[1];
  sheet.range['A1']:=AnsiReplaceStr(Memo1.Lines.text,#13,'');
end;

yapabilecek.admin kullanıcı herhangi bir şey eklemeyecek ama
tüm client kullanıcıların vt e girmiş olduğu bilgileri excel e atarak rapor hazırlaması gerekiyor.
Client kullanıcıların vt de ilgili fields lere girmiş olduğu bilgileri excel e atarken enter (satır boşluğu) problemi ortaya çıkıyor.
tüm client ların girmiş olduğu bilgileri tek tef dbmemo ya atarak oradan excel e atmak da mantıklı gelmiyor.
yada şu da olabilir: ibexpert ile vt deki bilgileri boşluk problemi olmadan excel e alabilirmiyim?
Bu problemi daha önceden çözen bir arkadaş var mı acaba?