memoda yazıyı istedigim yerden baslatmak

[otherside]

memoya data atıyorum birkac kolon ve birkac row olarak dongu içinde bunları atıyorum ama duzunsiz geliyor her kolon için belli sabit bir yer ayırıp oraya yazmak istiyorum mesala data ya ayırdıgım yer 20 olsun gelen data nın uzunlugu 5 se 15 bosluk 19 sa 1 bosluk bırakmak istiyorum
kolay gelsin

[cozturk]

"Boşluk" ile hizaları tutturmak çok zor. Ben tab atıyorum şaşmıyor.

En geniş sütunu dikkate alarak kısa sütunlara 3-5 tab karakteri ekle.
En geniş olana ise 1 tane eklesatırlardaki hizalar hep aynı olur
tab = #9 = (chr(9)

[mucar]

evet cozturk'e katılıyorum.

Kod: Tümünü seç

memo1.lines.Add('deneme'+#9+#9+'deneme'+#9+#9+'deneme');

bu şekilde yaparsanız düzenli olur. yalnız font olarak da courier new fontunu kullanıyorum ben. bu fontun özelliği bütün karakterlerin eşit boyda olması. düzeni abartmak için

[otherside]

arkadaslar tab larla ayarlamak cok saglıklı olmuyo daha dogrusu ben ayarlamadım cunku benım data uzunlugum cok belli olmuuyo 1 karakter de olabiliyo 100 de onun için sole bişi işimi gordu


function RepeatChar(ch:Char;Count:Integer) :string;
begin
SetLength(Result,Count+1);
FillChar(Pointer(Result)^,Count,ch);
end;
function ConstLength(S :string;Count:Integer):string;
begin
Result:=Copy(S+RepeatChar(' ',Count),1,Count);
end;


memo1.Lines[0]:=ConstLength(tadi,30)+ConstLength(tbirim,8)+ConstLength(tnormal,18)+tsonuc;
verdıgım degerlere gore tamamlama yapıyo

[aslangeri]

s.a.
memo nun carakter setini coruer yaparsan boşluk ile hizalayabilirsin.
(tabi fontun önemi yoksa)

kolay gelsin.