關於delphi字串 |
|
答題得分者是：supman
|
|
elctppo
一般會員   發表：28 回覆：22 積分：10 註冊：2005-04-01 發送簡訊給我 |
for i := 1 to 39 do label1.caption[i] := label1.caption[i 1]
為什麼會這樣~~~~but我想做到以上的效果有咩辦法呀?thx
[Error] Unit1.pas(95): Left side cannot be assigned to 我是想讓label動態的變化,也就是label.caption的某一個字,
例如,label1.caption :='abc'
然後讓第一位置的'a'和第二位置'b'互換位置~~
就是只想改變label1.caption某一位置的字元~~ 發表人 - elctppo 於 2005/04/27 20:39:53
|
|
supman
尊榮會員  發表：29 回覆：770 積分：924 註冊：2002-04-22 發送簡訊給我 |
您好:
可以再描述清楚一點,您要做什麼嗎?
是要讓Label1.Caption=下一個Label的Caption??
如果這樣不就所有的Label都是相同的值了??? 還是您要動態指定Label的值??
procedure TForm1.Button1Click(Sender: TObject);
var
I:integer;
FComponent : TComponent;
begin
For I:=0 to 38 do
begin
FComponent := FindComponent('Label' IntToStr(I));
if Assigned(FComponent) and (FComponent is TLabel) then
begin
TLabel(FComponent).Caption:='Label' IntToStr(I);
end;
end;
end;
發表人 - supman 於 2005/04/27 17:53:56
|
|
elctppo
一般會員 發表：28 回覆：22 積分：10 註冊：2005-04-01 發送簡訊給我 |
for i := 1 to 39 do label1.caption[i] := label1.caption[i 1]
為什麼會這樣~~~~but我想做到以上的效果有咩辦法呀?thx
[Error] Unit1.pas(95): Left side cannot be assigned to 我是想讓label動態的變化,也就是label.caption的某一個字,
例如,label1.caption :='abc'
然後讓第一位置的'a'和第二位置'b'互換位置~~
就是只想改變label1.caption某一位置的字元~~
謝謝
|
|
jest0024
高階會員 發表：11 回覆：310 積分：224 註冊：2002-11-24 發送簡訊給我 |
|
|
supman
尊榮會員 發表：29 回覆：770 積分：924 註冊：2002-04-22 發送簡訊給我 |
您好
玩玩看以下的程式碼,他會一個一個字跟下一個字互換,您可以把他放在Timer裡面,就會看到他在循環的跑了. procedure TForm1.Timer1Timer(Sender: TObject);
var
s:String;
c1,c2:char;
i:integer;
begin
s:=Label1.Caption;
for i:=1 to Length(s)-1 do
begin
c1:=s[i];
c2:=s[i 1];
s[i]:=c2;
s[i 1]:=c1;
end;
Label1.Caption:=s;
end;
|
|
elctppo
一般會員 發表：28 回覆：22 積分：10 註冊：2005-04-01 發送簡訊給我 |
發表時間：2005-04-27 15:37:26
IP:202.175.xxx.xxx 未訂閱
系統時間：2024-04-29 4:36:15
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |