delphi中的writeln E ClassnameE Message 是什麼意思啊?新手求指點

2021-03-28 03:17:59 字數 5958 閱讀 9932

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...