comport-memo-veritabanı yardım

[caglaryazici0842]

merhabalar herkese.
comport ile almış olduğumuz bilgiyi memoya alt alta yazıyoruz. daha sonra da memodan bu bilgiyi veritabanına atıyoruz. bilgiyi timer ile belli aralıklarda alıyoruz. veritabanına atarken de memoda yazılı tüm satırları alıyoruz. fakat bazen memoda boş satırlar da olabiliyor(aslında genelde oluyor). bu satırları almak istemiyoruz. ne yapmalıyız.

procedure TForm1.Timer1Timer(Sender: TObject);
var
moment:string;
say,i:integer;
begin
if comport1.Connected=true then
begin
memo1.Clear;
comport2.ReadStr(moment,say);
memo1.Text:=memo1.Text+moment;
for i:=0 to 100 do
begin
if not table1.Eof then
table1.Last;
table1.Insert;
table1['Moment']:=memo1.Lines;
end;
end
else
showmessage('portları kontrol et');
exit;
end;

[sabanakman]

if Memo1.Lines.Count>0 then //<-al

veya

if Trim(Memo1.Lines.Text)<>'' then //<-al

[lazio]

Öncelikle Forum Kurallarını okuyun ve Mesaj başlığınızı Düzeltin viewtopic.php?t=6

Veritabanına yazmadan önce

Kod: Tümünü seç

if Trim(Memo1.Lines[i]) <> '' then
   // insert işlemi

gibi bir kontrol yapabilirsiniz..

Kolay gelsin