Birden fazla sütun içeren Memo'dan StringGrid'e Aktarım

[NeverFear]

Yeni bir proje açıp Form1 üzerine 1 adet Memo, 1 adet StringGrid ve 1 adet Buton
bırakın. Kodlamamızı iki sütunlu bilgi içeren Memo1 bileşeni için yapacağız.

Object Inspector penceresinin Properties sekmesinden;
Memo1 için -> Height=229, Width=110, ScrollBars=ssVertical olarak ayarlayın.
Lines özelliğine, şimdilik aşağıdaki gibi bilgiler girin.
25.11.2008 25,00
25.12.2008 25,00
25.01.2009 25,00
25.02.2009 25,00
25.03.2009 25,00

StringGrid1-> ScrollBars=ssVertical, ColCount=2, DefaultRowHeight=16, FixedCols ve
FixedRows=0, RowCount=1 olarak ayarlayın.
/////////////////////////////////////////////////////////////
Bu işlemleri tamamladıktan sonra, yordamlara aşağıdaki kodları ekleyin.

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Cells[0, 0]:= 'Vade';
  StringGrid1.Cells[1, 0]:= 'Tutar';
end;

procedure TForm1.Button1Click(Sender: TObject);
var s, t: integer;
    tar, mik: string;
begin
  StringGrid1.RowCount:= Memo1.Lines.Count + 1;
  for s:= 0 to Memo1.Lines.Count - 1  do
  begin
     t:= s + 1;
     tar:= Memo1.Lines.Strings[s];
     mik:= tar;
     if Pos(' ', tar) > 0 then
     begin
        tar:= Copy(tar, 1, Pos(' ', tar));
        mik:= Copy(mik, Pos(' ', mik) + 1, Length(mik));
        StringGrid1.Cells[0, t]:= tar;
        StringGrid1.Cells[1, t]:= mik;
     end;
  end;
end;

Çalıştırın ve butonu tıklayın.

İşinizi görmesi dileğimle,
Çalışmalarınızda başarılar dilerim.

NeverFear - kaheri579@hotmail.com