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 分別選取１．機構名稱 ２．月日 然後再依照輸入的值下去選取檔案讀入 想請問 可以使我輸入的值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 |
發表時間：2005-07-14 14:57:59
IP:59.120.xxx.xxx 未訂閱
系統時間：2024-06-30 11:56:39
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |