Memo1 Kolon Ayarlama

[zengin]

Degerli Arkadaşlarım Benim Ögrenmek İstedigim Memo1 Kayıt Yaparken
Memo1 Rin Kolonlarını Örnegin İsim Alanını 250 Genişlik Olsun istiyorum Fakat Bir Türlü Ayarlayamadım Bana Bu Konuda Yardımlarınızı Bekliyorum
saygılarımla

Kod: Tümünü seç

procedure TForm1.Timer2Timer(Sender: TObject);
begin
memo1.Clear;
if edit3.Text <> '' then
begin
table1.First;
while not table1.EOF do
  begin
memo1.lines.add(table1AdI.text+table1Plaka.text);
table1.Next;
end;
Timer2.Enabled:=false;
end;

[hicker]

memo1.lines.add(Format('%250s',[table1AdI.text])+table1Plaka.text);

[zengin]

hicker kardeşim ilgilendigin icin cok teşekür ederim
benim sorunum kelimeleri dbgridteki gibi ayırmak istiyorum

örnek
Plaka------------Adı----------------------Soyadı
04 03 2005----- delphiturkiye.com------üyeleri

oysa bitişik yazıyor Buna Bir Cözüm Arıyorum Ayrılsın Diye

04 03 2005delphiturkiye.comüyeleri

[gkimirti]

kolon aralarına tab karakteri koy o zaman

[fduman]

Memo'ya değil, TListView'a yaz. Kolon, başlık ve satır çizgilerini gösterme.

[mustafaozdemir]

Memo nun yazı tipini Courier yap yazı genişlikleri aynı olsun. Alanları belli bir genişliğe tamamlamak içinde bir function yaz. alanları bu functiona göndererek boşlukla tamamlayabilirsin. hepsi aynı hizada olur.

[zengin]

mustafaozdemir kardeşim function hakkında kücük bir örnek verebilirmisiniz lütfen

[mustafaozdemir]

Kod: Tümünü seç

function tamamla(ifade:string;uzunluk:integer):string;
var
i:integer;
begin
          for i:=length(ifade) to uzunluk do
          ifade:=ifade+' ';
  tamamla:=ifade;
end;

button1.click;

Kod: Tümünü seç

Memo1.Lines.Add(tamamla('Adı',25)+tamamla('Soyadı',9)+tamamla(tarih,10)); gibi...

[zengin]

mustafaozdemir kardeşim Kodların icin teşekkür ederim fakat
kolonları ayırmak istiyorum ben başlık karekterleri ile sorunum yok benim

[mustafaozdemir]

kolonları ayırmak istiyorum derken memo ya eklediğin kayıtlardan aynı alanlara sahip olanları aynı sütundan başlatmak istemiyormusun. mesela ad alanına ait veriler aynı sütundan, soyad alanına ait veriler aynı sütundan .... yoksa benmi yanlış anladım?

[zengin]

mustafaozdemir kardeşim aslında yanlış anlama olayı farklı algılama
oluyor kodun dogru ama örnegin benim listemde 13000adet kayıtlı olan aylık listem var

Kod: Tümünü seç

memo1.lines.addtable1AdI.text+table1Plaka.text);

dedigim zaman örnek yusuf isminde ne kadar kayıt varsa bana veriyor
senin önerin yalnızca bir satır icin oluyor aslında benim istedigim senin önermiş oldugun kodlar gibi ayırmak fakat benim kodumlada sıralamak zorundayım ?
inşallah anlatabilmişimdir bazen duygu ve düşüncede farklı olabiliyor
sizleride rahatsız ettim fakat yinede yardımlarınızı bekliyorum

[MakPRO]

Mrb. aşağıda ki mantığı sistemine uyarlarsan olur kolay gelsin

Kod: Tümünü seç

procedure yazdircizdir;

var
str250:string[250];
plaka,ad,soyad:array[1..450] of string[25];
i,j:integer;

begin
// burda 250 karakterlik bir boşluk karakteri oluşturuluyor 
fillchar(str250,250,' ');
// eşit genişlikte font kullanmak gerekli
memo1.Fonts.Name:='Cruier New';
//burada listeleme yapıyor
 for i:=0 to 450 do begin

delete(str250,3,length(plaka[i]));
insert(plaka[i],str250,3);

delete(str250,33,length(ad[i]));
insert(ad[i],str250,33);

delete(str250,63,length(soyad[i]));
insert(soyad[i],str250,63);
end;

end;



end;

[fduman]

Senin ne yapmak istediğini hala anlamadım. Neden Memo kullanmak istediğini de hala anlamadım. Açık ve net bir şekilde ne yapmak istediğini anlatma! örnekle.

[zengin]

coderlord kardeşim olay memodaki özellikle tercihim aranan No
Lksede oldugu gibi ön izleme gibi takip olayı ?

örnek kodum:

Kod: Tümünü seç

procedure TForm1.Timer1Timer(Sender: TObject);
begin
memo1.Clear;
if edit1.Text <> '' then
begin
table1.First;
while not table1.EOF do
  begin
memo1.lines.add(table1PARCA_NO2.text+table1ADI.text);
// memo1.lines.add(Format('%2s',[table1PARCA_NO1.text])+(tamamla('',5)+table1PARCA_NO2.text+(tamamla('',5)+table1ADI.text)));
table1.Next;
end;
Timer1.Enabled:=false;
end;

end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
 if edit1.Text=''
  then table1.Filter:=''
  else
table1.Filter:='[PARCA_NO2]='+#39+edit1.text+'*'+#39;
Table1.Filtered:=True;
Timer1.Enabled:=true;
end;

hatalı olan ise cıktısı dagınık bir şekilde sonuc vermesi

3C46 3A719 HORTUM.KOMPLE-HIDROLIK DIREKSIYON 3230 8X2
3C46 3A719 HORTUM.KOMPLE-HIDROLIK DIREKSIYON 3230 8X2
3C46 3C768 "L"BRAKET-DIREKSIYON.BORUSUNU SASIYE
3C46 3C768 BRAKET-DIREKSIYON BORUSUNU SASIYE 3230 8X2
33800 SOMUN-3/8"-24 UNF(AR.MKS.BRKT)
33884 SOMUN-5/8"UNF(ON AKSON)
34443 STEPNE SOMUNU-5/16"UNF(2621)
39529F PISTON - KOMPRESOR (3C46-2875-AA)
0634 300302 MIL KECESI
300899 CIVATA
304713 CIVATA 3/4 -10X1.125 UNC
304724 CIVATA-7/16"-14UNC(C26)
1304 307158 VITES SECICI KAPAGI
0634 307367 MIL KECESI
330027 YAKIT HORTUM KELEPCESI, WEBASTO
353475 SUS PULU

[fduman]

sadece önizleme yapacaksan neden grid veya türevini kullanmıyorsun? Memo kullanmanın esprisi nedir? Grid çizgilerini kaldırabiliyorsun zaten.