Delphi Forum

Çok teşekkür ederim. Son Gönderdiğiniz kod işimi gördü.
İyi çalışmalar.

sayın ofenX,
Çok teşekkür ederim. Kesin olmamakla birlikte sorunu çözmedi bu.
Memoda durum doğru gözüküyor yani diyelim her satır 50 char ile sınırlandırılabiliyor ama memodaki metni not defterine ya da word e yapıştırdığımızda marj filan kalmıyor. Yazıcıda henüz denemdim ama sanırım aynı sonuç ...

rsimsek hocam
o kod işimi görmüyor. Görünürde alt satıra geçiyor ama yazıldığında yine sınırlama yok.

Merhaba arkadaşlar,
Memoda her satırdaki karakteri sınırlamak bir nevi sağ marj koymak istiyorum. Bunu yapan bileşenler var ama sadece görsel bir sınırlama ben bunu yazıcıya gönderirken de sınırlamak istiyorum.

yine delphiturk kodbanktan:
memoda aktif sütun ve satır karakter sayısını bulur

procedure TForm1.Button1Click(Sender: TObject);
var
Lpos,Cpos,LineLength:integer;
begin
Lpos := SendMessage(memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);
Cpos := SendMessage(memo1.Handle,EM_LINEINDEX,Lpos,0 ...

Aslında benim dmek istediğim şöyle birşey: aktif satırı kontol eden kodlar var: procedure TForm1.Memo1Click(Sender: TObject);
var
satir:integer;
begin
with (Sender as Tmemo) do
begin
satir:= Perform(EM_LINEFROMCHAR,SelStart,0);
SelStart := Perform(EM_LINEINDEX, satir, 0);
SelLength:=Length ...

mantık olarak 1 gelecek satıra soldan itibaren en yüksek diyelim 4 basamaklı bir sayı gelecekse #32+#32+#32+'1' şeklinde
2 basamaklı için #32+#32+'10'
3 basamaklı için #32+'100'
4 basamaklı için '1000'

gibi bir kontrol mümkün gözüküyor. sanırım belli peryodlarla satır sonlarına eklenecek sayfa ...

Arkadaşım biraz işin uzun gibi gözüküyor. Sana önerim Visual Basic de kullanılan temel yapıyı(veri tiplerini, karar yapılarını ve döngü tiplerini vs) öğrenmen olacak En basitinden VB de Single 4 bayt +/- 1E-45 to 3E38 olduğunu bilmek gerekiyor. Kusura bakma lütfen. Burada bir yol önerebilirim ancak ...

VB kodlarını Delphiye aktaran programlar var. VB2delphi diye aratısanız bulursunuz. Ancak bu kodda sadece değişken tanımı yapımış. Başka bişey de yok. Delphi ile onları zaten kolaylıkla yaparsınız.

Teşekkürler bu makaleye ihtiyacım vardı. Eline emeğine yüreğine sağlık.

merhaba
sanırım istediğiniz özelliklerde en uygun bileşen RichView Bileşeni
web-site: http://www.trichview.com
e-mail: svt@trichview.com

merhaba,
İşinize yarayabilecek iki güzel link vernek istiyorum. İsterseniz bir inceleyin
http://www.delphidunyasi.com/IBExpertle_UDF.htm
http://www.delphidunyasi.com/UDF%20Oluşturma.htm

Coderlord hocam,
teşekkür ederim. Bileşeni inceleyeceğim..
Olc; dediğiniz doğru ama ben bu OCR yazılımlarını kullanıyorum ve son bir iki yıldır FineReader in muhteşem çıkışı var. Karakter tanımada hata oranı çok ama çok düştü. Eğer kullanmadıysanız deneyin derim. Recognita 5.0 plush da az bi farkla ...

Bunu biliyorum ama benim öğrenmek istediğim sisteminde FineReader ya da Recognita, iris vb OCR yazılımı bulunan kişinin benim yapacağım program içerisinden bunları eğer scanneri varsa çağırmak.. Arka planda çalışan bu programlar kanalıyla da tarayıcıdaki veriyi memoya aktarmak..

Yine zaten bu tür ...

Arkadaşlar merhaba,

İlk olarak sistemde scanner var mı nasıl algılatırım? Bir de taratılan metni memoya nasıl aktarırım?
Forumda arama yaptım ama sorulanların hepsi resim için..