1樓:匿名使用者
e是個異常。
e.classname是類名.
e.message是異常資訊的內容。
writeln,用來輸出到控制檯
emessage在發資訊是什麼意思?
2樓:匿名使用者
emessage是泛微的公司內部交流軟體,基於公司組織架構和人員配備,太難用了(⊙﹏⊙)b
3樓:
e message
電子資訊
e.classname什麼意思 20
4樓:喝酒的螳螂
js函式,改變html標籤中class的屬性,類似於setatribute。
一下是參考:
pascal程式設計問題
5樓:匿名使用者
因為機器上沒有安裝pascal,所以用delphi的控制檯來實現。62616964757a686964616fe78988e69d8331333330346531
6樓:
var i, j : longint;
r, s, t : string;
temp : char;
begin
readln(r);
readln(s);
t := s;
for i := 1 to length(r) do
begin
if r[i] = 'a' then
begin
for j := 1 to length(s) div 2 do
begin
temp := s[j];
s[j] := s[length(s) - j + 1];
s[length(s) - j + 1] := temp;
end;
end;
if r[i] = 'c' then
begin
for j := length(s) downto 1 do
s[j+1] := s[j];
s[1] := t[length(t)];
end;
if r[i] = 'e' then
begin
for j := 1 to length(s) div 2 do
s[j] := t[j + (length(t) + 1) div 2];
for j := length(s) div 2 + 1 to length(s) do
s[j] := t[j - (length(t) + 1) div 2];
if length(s) mod 2 = 1 then
s[length(s) div 2 + 1] := t[length(t) div 2 + 1];
end;
if r[i] = 'j' then
begin
for j := 1 to length(s) do
s[j] := s[j+1];
s[length(s)] := t[1];
end;
if r[i] = 'm' then
begin
for j := 1 to length(s) do
if ord(s[j]) in [49..57] then
s[j] := chr(ord(s[j]) - 1)
else
if ord(s[j]) = 48 then
s[j] := chr(57);
end;
if r[i] = 'p' then
begin
for j := 1 to length(s) do
if ord(s[j]) in [48..56] then
s[j] := chr(ord(s[j]) + 1)
else
if ord(s[j]) = 57 then
s[j] := chr(48);
end;
end;
writeln(s);
end.
7樓:匿名使用者
vars,t,s1:string;
n,i,j,w,z,w1,z1,w2,z2:longint;
begin
readln(t);
readln(s);
n:=length(s);
for i:=length(t) downto 1 docase t[i] of
'a':begin
for j:=1 to n do
s1:=s1+s[n-j+1];
s:=s1;
s1:='';
end;
'c':begin
for j:=2 to n do
s1:=s1+s[j];
s1:=s1+s[1];
s:=s1;
s1:='';
end;
'e':begin
w:=1;
z:=n div 2;
if n mod 2=0 then beginw1:=z;
z1:=0;
endelse begin
w1:=z+1;
z1:=w1;
end;
w2:=w1+1;
z2:=n;
for j:=w2 to z2 do
s1:=s1+s[j];
for j:=w1 to z1 do
s1:=s1+s[j];
for j:=w to z do
s1:=s1+s[j];
s:=s1;
s1:='';
end;
'j':begin
s1:=s[n];
for j:=1 to n-1 do
s1:=s1+s[j];
s:=s1;
s1:='';
end;
'm':begin
for j:=1 to n do
if s[j] in ['0'..'9']then if s[j]<>'9' then s1:=s1+chr(ord(s[j])+1)
else s1:=s1+'0'
else s1:=s1+s[j];
s:=s1;
s1:='';
end;
'p':begin
for j:=1 to n do
if s[j] in ['0'..'9']then if s[j]<>'0' then s1:=s1+chr(ord(s[j])-1)
else s1:=s1+'9'
else s1:=s1+s[j];
s:=s1;
s1:='';
end;
end;
write(s);
end.
delphi高手來~看看,瞧瞧!
8樓:匿名使用者
你註釋不是已經很清楚了嗎,你程式中缺少某個方法中的某些引數。
把**貼出來別人才能解決呀
9樓:
所謂常見錯誤提示的資訊也是很多,建議你安裝一個金山詞霸之類的軟體,然後在開發過程積累你的程式英語的單詞量。
delphi怎樣將結構體寫入檔案
10樓:匿名使用者
rewrite(mytext);
for i := 1 to 10 do begin
customers[i].id := 'test:' + inttostr(i);
customers[i].code := 'buy:' + inttostr(i);
customers[i].name := 'monty' + inttostr(i);
write(mytext, customers[i]);
end;
closefile(mytext);
for i := 1 to 10 do begin
customers[i].id := '0';
customers[i].code := '0';
customers[i].name := '0';
end;
//只讀模式開啟檔案
reset(mytext);
//讀取檔案是否結束
while not eof(mytext) do begin
read(mytext, customer);
writeln(customer.id, customer.name, customer.code);
end;
closefile(mytext);
readln;
except
on e: exception do
writeln(e.classname, ': ', e.message);
end;
end.
delphi 中的and 怎麼用
11樓:陽光上的橋
作為邏輯判斷的and,例子:
if (a>=60) and (a<80) then writeln('優秀')
作為位運算的and,例子:
writeln(5 and 8)
12樓:匿名使用者
開啟delphi介面,其來基本功能如下圖所示源zhi建立一個新的工程,其介面如dao下圖所示將控制元件區的按鈕拖入到窗體中,本例中我們拖入了一個button按鈕在左邊的窗體中修改按鈕屬性
單擊按鈕,進去**編輯區,新增按鈕事件
執行該程式,即生成了一個delphi程式
13樓:匿名使用者
在鍵盤上敲『a』,'n','d'
一下題目中的document.writeln(""+a+b+c);是什麼意思?
14樓:匿名使用者
a=1; b=2; c=2;
while (a一次1<2==>true,true<2==>true,所以結果copy是true,第二次2<1==>false,false<1==>true,第三次1<2==>true,true<0==>false,退出迴圈
t=a; // t=1 t=2 第一次及第二次迴圈執行後的值a=b; // a=2 a=1
b=t; // b=1 b=2
c--; // c=1 c=0
}document.writeln(""+a+b+c); // 結果a=1,b=2,c=0,轉為字串相加結果是120,即是b
關於document.writeln是按行列印到出來,""+a+b+c中,是一個空字串加一個數字,結果變成字串,即""+1結果是字串"1",然後字串"1"+2,結果是字串"12",然後這個字串再加0,就是"12"+0結果是"120",所以""+a+b+c跟純數字相加的結果是不一樣的,即a+b+c=1+2+0=3,結果及資料型別都不一樣。
請delphi高手指點一下,下面的語句有什麼問題?
15樓:匿名使用者
with adoquery1 do
begin
close;
strid:=trim(edit1.text);
sql.clear;
sql.text:='select * from custominfo where id=:strid ';
parameters.parambyname('strid').value:=strid;
open;
end;
應該復是制這bai
句沒du仔zhi細dao
parameters.parambyname('strid').value:=strid;
Delphi中PChar 函式的用法
一般做dll呼叫,或者呼叫dll時用得最多,他的意思是轉換字串為指標供程式呼叫 轉換指標為pchar型指標 請問delphi中pchar 是個什麼函式,返回什麼值?pchar是型別 pchar是函式 pchar s s為string型別,返回來提pchar型別的值 在delphi中,這個pchar指...
Delphi中Integer與longInt的聯絡與區別
integer與longint,都是整型,但後一個佔用的記憶體要多.如果數字不是特大,不要使用長整型.兩個都是整形,只是存放的資料大小不一樣。就好比兩個杯子 lnteger是中杯 longint是大杯 所以主要看你存放的整形有多大,太大的話就用longint 否則integer也差不多 不要覺得lo...
delphi中怎樣用ado連結sqlserver?具體點
adoconnection中的connectionstring中設定,其他的控制元件連線到adoconnection即可。你首選要在窗體上放置一個 tadoconnection控制元件,然後設定一下它的連線字串connectionstring。tadoconnection.close with ta...