ComboBox的值 |
尚未結案
|
ksing
一般會員 ![]() ![]() 發表:12 回覆:16 積分:5 註冊:2005-06-29 發送簡訊給我 |
|
wyndog
資深會員 ![]() ![]() ![]() ![]() ![]() 發表:7 回覆:362 積分:348 註冊:2004-10-12 發送簡訊給我 |
一、
procedure TForm1.Button1Click(Sender: TObject); var F: File; FileName: string; begin //ComboBox.Text 就是你選的值了 FileName := ComboBox1.Text; AssignFile(F, FileName); .............. end;二、 不是很了解你的意思 以下這段程式是把 6/1~6/30 加到 ComboBox 去 procedure TForm1.Button1Click(Sender: TObject); var i: integer; Month, Day: string; begin ComboBox1.Clear; Month := '06'; for i := 1 to 30 do begin Day := IntToStr(i); // 如果日期只有一位,前面要補 0 if length(Day) = 1 then Day := '0' Day; ComboBox1.Items.Add(Month Day); end; end; |
JustinShen
中階會員 ![]() ![]() ![]() 發表:22 回覆:104 積分:80 註冊:2003-09-20 發送簡訊給我 |
引言: 我想用兩個ComboBox 分別選取1.機構名稱 2.月日 然後再依照輸入的值下去選取檔案讀入 想請問 可以使我輸入的值ex: 1.OK超商 2.0620 轉換成字串輸入AssignFile()裡嗎? 要如何作? 第一個ComboBox可供選取的值有兩個 皆為文字 第二個 則為月日 如 0620(想請問怎麼設定String list edit) 範圍若為以月 或 以年 分別設法??? 謝謝各位指教估计您是要从命名格式为<机构名称><日期>.txt的文档中读取数据,我简单写了一点代码您看看可不可以: procedure TForm1.FormCreate(Sender: TObject); begin ComboBox1.Items.Add('OK超商'); ComboBox1.Items.Add('大甲'); //...您可能需要写获取机构名称的代码 InitByMonth(6); end; procedure TForm1.InitByMonth(M: Integer); var tmpDate: TDate; yy,mm,dd: WORD; begin ComboBox2.Items.Clear; tmpDate:=StrToDate(format('2000-%d-1',[M])); DecodeDate(tmpDate,yy,mm,dd); while mm=M do begin ComboBox2.Items.add(format('--',[mm,dd])); tmpDate:=tmpDate 1; DecodeDate(tmpDate,yy,mm,dd); end; end; procedure TForm1.InitByYear(Y: Integer); var tmpDate: TDate; yy,mm,dd: WORD; begin ComboBox2.Items.Clear; tmpDate:=StrToDate(format('%d-1-1',[Y])); DecodeDate(tmpDate,yy,mm,dd); while yy=Y do begin ComboBox2.Items.add(format('--',[mm,dd])); tmpDate:=tmpDate 1; DecodeDate(tmpDate,yy,mm,dd); end; end; procedure TForm1.Button1Click(Sender: TObject); var FName: String; F: TEXTFILE; begin FName:=ComboBox1.Text ComboBox2.Text '.txt'; Assign(F,FName); while not eof(F) do begin //...读取文档到某处 end; CloseFile(F); end;Justin Shen ================================= 如果能帮到您,我会很开心;如果能得到您的帮助,是我的荣幸 =================================
------
==================== 我为一切作努力! Justin Shen |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |