delphi讀取文本

DELPHI5務(wù)實經(jīng)典

不會編從這個開看，最基礎(chǔ)的了

我試了好多次，沒有方法使Ehlib顯示在控件面板上，我想用其中的DBGRIDEH用來使數(shù)據(jù)快速導(dǎo)出到EXCEL文件中。我用DBGRID導(dǎo)出過EXCEL可感覺還是有等待讀取數(shù)據(jù)的過程！有木有迅速就能導(dǎo)出EXCEL的控件。

dephi中沒有象VB中的split函數(shù),但是使用TStringList類的 Delimter 和 DelimtedText 兩個屬性可以很容易的把字符串分割,然后放入 TStrings里面.
例:
s:='aa,bb,cc,dd'
ts := TStringList.Create
ts.Delimter := ','
ts.DelimtedText := s
//這時 ts里面就存放了 aa bb cc dd 這四個strings了. 你只要通過 ts[0]就可以取第一個數(shù)據(jù)
function SplitString(Source, Deli: string ): TStringList;stdcall;
var
EndOfCurrentString: byte;
StringList:TStringList;
begin
StringList:=TStringList.Create;
while Pos(Deli, Source)>0 do
begin
EndOfCurrentString := Pos(Deli, Source);
StringList.add(Copy(Source, 1, EndOfCurrentString - 1));
Source := Copy(Source, EndOfCurrentString + length(Deli), length(Source) - EndOfCurrentString);
end;
Result := StringList;
StringList.Add(source);
end;
procedure StrToStrs(str:string;strs:tstrings);
var temp:string;
i:integer;
label B,E;
begin
B:
i:= ansipos('|',str);
if i=0 THEN GOTO E;
strs.Add(ansileftstr(str,i-1));
str:=ansirightstr(str,length(str)-i);
GOTO B;
E:
end;

展開全部

1、設(shè)置縱向相同數(shù)據(jù)表格單元合并

2、定義方法見下

拼的字符串和。。按鈕的 name 屬性比較

例如：
const
pi=3.1415****

定義常量在定義變量之前粗圓凱。常巖喚量不可腔備以賦值。

懸梁刺股的故事\x0d \x0d
\x0d　東漢時候,有個人名叫孫敬,是\x0d著名的政治家.\x0d　　 他年輕時勤奮好學(xué),經(jīng)常關(guān)起\x0d門,獨(dú)自一人不停地讀書.每天從\x0d早到晚讀書,常常是廢寢忘食.讀\x0d書時間長,勞累了,還不休息.時\x0d間久了,疲倦得直打瞌睡. 他怕\x0d影響自己的讀書學(xué)習(xí),就想出了一\x0d個特別的辦法.他就找一根繩子,\x0d一頭牢牢的綁在房梁上另一頭系在\x0d頭發(fā)上.當(dāng)他讀書疲勞時打盹了,\x0d頭一低,繩子就會牽住頭發(fā),這樣\x0d會把頭皮扯痛了, 馬上就清醒了\x0d,再繼續(xù)讀書學(xué)習(xí).\x0d　　這就時孫敬懸梁的故事.\x0d　　
戰(zhàn)國時期,有一個人名叫蘇秦\x0d,也是出名的政治家.在年輕時,\x0d由于學(xué)問不多不深,曾到好多地方\x0d做事,都不受重視.回家后,家人\x0d對他也很冷淡,瞧不起他.這對他\x0d的刺激很大.所以,他下定決心,\x0d發(fā)奮讀書. 他常常讀書到深夜,\x0d很疲倦,常打盹,直想睡覺.他也\x0d想出了一個方法,準(zhǔn)備一把錐子,\x0d一打瞌睡,就用錐子往自己的大腿\x0d上刺一下.這樣,猛然間感到疼痛\x0d,使自己清醒起來,再堅持讀書.\x0d這就使蘇秦"刺股"的故事.\x0d　　古代中國很重視讀書,于是就\x0d有了孫敬的頭懸梁、蘇秦的錐刺骨\x0d.

阿銀不是老是叫桂小太郎假面嗎？讓前
叫假面遲灶可以嗎？
作品里有沒有可愛的伊麗莎白啊，碼滑扮哈哈

不知道你喜歡什么風(fēng)格的，下面幾種看看吧，喜歡就選吧。

′ai情的虛假

′忘不掉的曾經(jīng)

爾說俄們前世已經(jīng)訂了諾言

-爾到最后還是放棄了愛俄

冷瞳

〆壹迣葒塵情緣╮

習(xí)慣つ

丶心疼邇菂心疼

゛Confuseヾ

丶轉(zhuǎn)身的那一笑,

所謂的結(jié)局。

の゛懟沵媥嬡

你像煙花一樣的燦爛

貝多芬旳彈唱 浮浮沉沉‖

浮若半生 沉載幾世溺愛

I hate U、

庸人自擾*

妲己在美也只是妃子

花 顏ヽ

邇是我觸不可及的傷疤

刺青刺過整片心痛 °

若憂傷、即是愛__