안녕하세요,
계속 도와주시는 분이 있어서 감사하네요...


여태까지 하던 프로젝트는 하나 끝났구요,,, (컴포넌트 설치 신공으로 인해 수월하게 끝났네요. 물론 제가
완벽히 한 건 아니지만 ㄷㄷ)


소규모로 저 혼자 진행하는게 POS 만들어 보려고 하는데요, 생각보다 굉장히 어렵네요...



Interface 는 첨부한 사진과 동일합니다.

왼쪽에는 Order / Edit / Calc 가 있는데
Order 는 주문,
Edit 는 주문하는 메뉴들의 값이나 메뉴들 추가
Calc 는 월매출이나 일매출 등등을 확인할 수 있게 만들고 있어요.


Order에는 구체적으로 탭메뉴로  Potato > Beverage > Side > Order 이런 순으로 주문이에요~
즉, 감자를 고르고 음료를 고른 뒤 사이드메뉴를 고르고 최종주문을 Order에서 확인하고 계산하는거죠.
제가 발견한 문제점은,

Error] Unit1.pas(101): Incompatible types: 'TStrings' and 'String'

In ComboBox1.Items 에 Small, Medium, Large 라는 사이즈를 고를 수 있는데 위에 처럼 오류가 떴습니다. 코딩은,

procedure TListForm.ComboBox1Change(Sender: TObject);
begin
  if ComboBox1.Items := 'Small' then
    Edit3.Text := '2500'
  else ComboBox1.Items := 'Medium' then
    Edit3.Text := '3000';
  else ComboBox1.Items := 'Large' then
    Edit3.Text := '3500';
end;

일단, 문법보다는 TString이 콤보박스에서의 문자들의 타입인듯 싶은데,,, String과는 다르게 다뤄야 되나요?