memoda yanyana yazı yazdırma

[seci20]

ustalarım merhaba...Memoda yanyana nasıl yazı yazdırabılırım ornegın bir işlem yapılıyor ve işlemin onayını yan tarafına yazdıracagım..Örneğin

İşlem yapılıyor... YAPILDI
Kayıt yapılıyor...YAPILAMADI

gibi yanyana nasıl yazdırabılırım..Yada iki satır arasına nasıl delay yada sleep tarzı komut eklıyebılırım....

resimli halde söyle göstereyim...



bakın işlemi yapıyor ornegın Reading data from phone diyor ardından okudugunun onayını son satıra verıyor aynı o sekılde satır sonuna onayı nasıl verebilirim

Not:Ustalarım elle tutulabılır bır kaynak bulamadıgım ıcın kod ustunden yorum yapamıyorum kusura bakmayın...

[seci20]

ustalarım videolu şekilde göstereyim tam açıklama yapamadıysam affola


https://www.youtube.com/watch?v=3-zu_uTyzQo

[fesiharslan]

Merhaba;
Daha önceden eklenmiş Memo satırlarına bilgi eklemek için memonun Lines özelliğini kullanabilirsiniz.
Daha önce oluşturulmuş bir satır TStrings tipine olduğundan, herhangi bir satır verisine ulaşmak veya güncellemek için aşağıdaki yöntemi kullanın.

Kod: Tümünü seç

Lines[SatırNumarası]:=Lines[SatırNumarası]+' : Yeni Değer'; 

Örnek;
Daha önceden Memo'nun satırlarını oluşturun.

Kod: Tümünü seç

Memo1.Lines[0]:='İşlem yapılıyor';
Memo1.Lines[1]:='Kayıt yapılıyor';

Kod: Tümünü seç

Memo1.Lines[0]:=Memo1.Lines[0]+' : YAPILDI';
Memo1.Lines[1]:=Memo1.Lines[1]+' : YAPILAMADI';

[seci20]

Merhaba;
Daha önceden eklenmiş Memo satırlarına bilgi eklemek için memonun Lines özelliğini kullanabilirsiniz.
Daha önce oluşturulmuş bir satır TStrings tipine olduğundan, herhangi bir satır verisine ulaşmak veya güncellemek için aşağıdaki yöntemi kullanın.

Kod: Tümünü seç

Lines[SatırNumarası]:=Lines[SatırNumarası]+' : Yeni Değer'; 

Örnek;
Daha önceden Memo'nun satırlarını oluşturun.

Kod: Tümünü seç

Memo1.Lines[0]:='İşlem yapılıyor';
Memo1.Lines[1]:='Kayıt yapılıyor';

Kod: Tümünü seç

Memo1.Lines[0]:=Memo1.Lines[0]+' : YAPILDI';
Memo1.Lines[1]:=Memo1.Lines[1]+' : YAPILAMADI';

çok teşekkür ederim hocam sayenızde oldu ALLAH razı olsun...

[fesiharslan]

Rica ederim. İyi çalışmalar...

[10.Köy]

Merhaba;
Daha önceden eklenmiş Memo satırlarına bilgi eklemek için memonun Lines özelliğini kullanabilirsiniz.
Daha önce oluşturulmuş bir satır TStrings tipine olduğundan, herhangi bir satır verisine ulaşmak veya güncellemek için aşağıdaki yöntemi kullanın.

Kod: Tümünü seç

Lines[SatırNumarası]:=Lines[SatırNumarası]+' : Yeni Değer'; 

Örnek;
Daha önceden Memo'nun satırlarını oluşturun.

Kod: Tümünü seç

Memo1.Lines[0]:='İşlem yapılıyor';
Memo1.Lines[1]:='Kayıt yapılıyor';

Kod: Tümünü seç

Memo1.Lines[0]:=Memo1.Lines[0]+' : YAPILDI';
Memo1.Lines[1]:=Memo1.Lines[1]+' : YAPILAMADI';

çok teşekkür ederim hocam sayenızde oldu ALLAH razı olsun...

lines işlemi yaparken sürekli hata alıyorum satır satır yazdırabilmiş değilim, Delphi10 kullanıyorum atladığım bir konu mu var, yardımcı olabilir misiniz?

Aslında bu hatayı uzun zamandır alıyorum konusu açılmışken yardımcı olabileceğinizi düşündüm internetteki çoğu alternatif çözüm işe yaramadı.

[esistem]

Selam, şu şekilde yapabilirsiniz.

Kod: Tümünü seç

var
durum : boolean;
Begin
durum := true;
memo1.lines.add('İşlem Yapılıyor...');
TRY
Yapılacak işlemler....
EXCEPT
durum := false;
memo1.lines[memo1.Lines.Count-1]:='İşlem Yapılıyor...Hata';
END;
if durum=true then memo1.lines[memo1.Lines.Count-1] := 'İşlem Yapılıyor...Ok';

End;

[fesiharslan]

lines işlemi yaparken sürekli hata alıyorum satır satır yazdırabilmiş değilim, Delphi10 kullanıyorum atladığım bir konu mu var, yardımcı olabilir misiniz?

Aslında bu hatayı uzun zamandır alıyorum konusu açılmışken yardımcı olabileceğinizi düşündüm internetteki çoğu alternatif çözüm işe yaramadı.

Merhaba;
Memo Lines satırlarına ulaşabilmeniz için bu satırların önceden oluşturulması gerekmektedir.
Yani forma bir memo ekleyip, doğrudan Memo1.Lines[0] Şeklinde ulaşamazsınız.

Sizdeki hatanın sebebi de budur.
Bu yapıyı kullanabilmek için Memo satırlarını önceden oluşturun.

Örneğin;
Formun OnShow olayında Memo satırlarını oluşturun.

Kod: Tümünü seç

var
  i:integer;
begin
For i:=1 to 10 do
   Memo1.Lines.Add(' ');
end;

Yukarıda, bir Memo içerisine 10 satır oluşturduk.
Daha sonra uygulamanın herhangi bir satırında bu 10 satıra ulaşabilir ve değerlerini değiştirebilirsiniz.

Örneğin;

Kod: Tümünü seç

Memo1.Lines[0]:='Deneme'; //1. Satır
Memo1.Lines[1]:='Deneme'; // 2. Satır
Memo1.Lines[2]:=Memo1.Lines[2]+'Deneme';
Memo1.Lines[3]:=25.ToString;
Memo1.Lines[4]:='Delphi Türkiye';
Memo1.Lines[8]:='Denmeme'+i.ToString; //9. Satır
Memo1.Lines[9]:='Deneme'; //10. Satır

[10.Köy]

Çözüm için çok teşekkür ederim çoğu yerde bu şekilde anlatılmıyor doğrudan satır numarasına tanımlanabilir örneklerle anlatılmış, bahsettiğiniz şekilde çözüldü elinize yüreğinize sağlık, çalışmalarınızda başarılar

[fesiharslan]

Çözüm için çok teşekkür ederim çoğu yerde bu şekilde anlatılmıyor doğrudan satır numarasına tanımlanabilir örneklerle anlatılmış, bahsettiğiniz şekilde çözüldü elinize yüreğinize sağlık, çalışmalarınızda başarılar

Rica ederim.
Yardımcı olabildiysem ne mutlu bana.
İyi Çalışmalar...