안녕하세요. 아래 답변이 나오지 않아 이렇게 다시 올리게 되었습니다.
이렇게 올리면 안되나 ???
제가 작성한 코드는 아래와 같습니다.
TListBox에 날짜가 나오고 그 날짜에 해당하는 다른 내용들을 TMemo 콤포넌트에 출력하려고 합니다. 그러나
Mem_jungbi.Lines.Assign(FieldByName('Ilja'));
이부분에서 'Cannot Assign a TStringField to a TMemoStrings'라는 에러가 뜹니다. 뭐 서로 호환이 안된다는 뜻같기는 합니다만은...
해결방법을 모르겠습니다. ㅠ.ㅠ
혹시 아시는분 쪼금만 갈켜주세요.
procedure Tfrm_bike.lstbox_IljaClick(Sender: TObject);
begin
with qry_Jungbi do begin
Close;
Sql.Clear;
Sql.Add(' SELECT * From Jungbi ');
Sql.Add(' WHERE Jumin = '''+ edt_jumin.Text +''' ');
Sql.Add(' AND Ilja =
''+ lstbox_Ilja.Items.Stringslstbox_Ilja.ItemIndex] +''' ');
Open;
Mem_jungbi.Lines.Assign(FieldByName('Ilja'));
end;
Mem_jungbi.Lines.Assign(FieldByName('Ilja'));을
Memo_jungbi.Text := qry_Jungbi.FieldByName('Ilja').AsString;
또는
Memo_jungbi.Text := qry_Jungbi.FieldByName('Ilja').AsMemo;
으로 정정해 보해서요.