델파이( Delphi ) 7.2 - 리스트박스, 문자열 클래스 ( TStrings, TStringList )

Delphi 7.2 TStrings.exe

델파이의 TStringList 는 매우 간단하면서 기능이 많은 문자열클래스 입니다.

문자열 구성을 확인 하기 위한 UI

리스트박스은 컨트롤 목록 Standard 텝에서 찾을 수 있습니다.

리스트박스의 아이템은 TStrings

var
  Form1: TForm1;
  ts: TStringList;

implementation

{ Tip
  함수/메소드 목록 ( Ctrl + Space )
  ts.Add('문자열'); - 값 추가
  ts.AddStrings('문자열'); - 값 추가
  ts.Values['값']:='데이터'; - 목차 추가 ( 값 중복 못함 )
  ts.LoadFromFile('data.txt'); - 파일로부터 열기
  ts.SaveToFile('data.txt'); - 파일로 저장
  ts.Text; - 전체 Text ( 구분자 기본 엔터 [ #13#10 ] )
  ts.ValueFromIndex[0] - 인덱스 값 얻기
  ts.Delete(0); - 인덱스 삭제
  ts.Clear; - 비우기
}

procedure TForm1.FormCreate(Sender: TObject);begin
  ts := TStringList.Create;//클래스 생성
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin
  ts.Free;//클래스 해제
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);begin
  ts.Values[Edit1.Text]:=Edit2.Text;
  ListBox1.Items.Assign(ts);//대상에 붙이기 Copy
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);begin
  if ts.Count >0 then begin
    ts.Delete(0);
  end;
  ListBox1.Items.Assign(ts);//대상에 붙이기 Copy
end;