| eduran | 26.07.2005 - 09:55:26 |
| slm.aşağıdaki kodla memo`nun içeriğini excel`e aktarıyorum. ancak eğer memo`da enter a basılmışsa bunlar excel`deki hücre de ufak karecikler şeklinde çıkıyor. bunun bir çözümü var mı arkadaşlar?
procedure TForm1.Button1Click(Sender: TObject);
var excel, workbook, sheet: variant; begin EXCEL := CREATEOLEOBJECT('EXCEL.APPLICATION'); EXCEL.VISIBLE :=TRUE; WORKBOOK :=EXCEL.WORKBOOKS.ADD; SHEET:=WORKBOOK.WORKSHEETS[1]; sheet.range['A1']:=Memo1.Lines.text; end; iyi çalışmalar.. | |
| 67neo | 05.08.2005 - 15:22:01 |
| Merhaba,
Kardeş bunun için önce memo içindeki bilgileri bir döngüye koymalısın ve #13 karakterini aratıp bulduğunu sildirmen gerekir. bunları copy(), delete() fonksiyonları ile yapabilirsin. sonucu da döngü içinde bir degiskene aktarmalısın. Tabii artık o değişkeni de rahatlıkla excele gönderebilirsin. | |
| t-hex | 05.08.2005 - 16:01:37 |
| Yani kısaca;
sheet.range['A1']:=AnsiReplaceStr(Memo1.Lines.text,#13,''); AnsiReplaceStr fonksiyonu StrUtils unitesinde tanımlıdır. | |