会python真的可以为所欲为0(回)
347天前
这里还有人吗1(回)
532天前这里还有人吗0(回)
532天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
757天前到处都是羊，不想上班0(回)
837天前
鸽子
0(回)
841天前if lowercase( GetTextType( strFileName))= 'tfunicode' then |
begin |
str := LoadUnicodeFile(strFileName); |
Memo1.Clear; |
Memo1.Lines.Add(str); |
end; |
if lowercase( GetTextType( strFileName))= 'tfansi' then |
begin |
Memo1.Lines.LoadFromFile(strFileName) ; |
str := Utf8ToAnsi(Memo1.Text) ; |
Memo1.Clear ; |
Memo1.Lines.Add (str); |
end; |
if lowercase( GetTextType( strFileName))= 'tfutf8' then |
begin |
str := LoadUTFFile(strFileName); |
Memo1.Clear; |
Memo1.Lines.Add(str); |
end; |
if trim(memo1.Text)='' then |
begin |
Memo1.Lines.LoadFromFile(strFileName) ; |
end; |
