क्या डेल्फी 2010 में LoadTextFromFile फ़ंक्शन है?

Question

डेल्फी 7 से डेल्फी 2010 तक कुछ कोड पोर्ट करते समय मैं अपने लोडटेक्स्टफ्रोफाइल() फ़ंक्शन को फिर से लिख रहा था।

function LoadTextFromFile(const aFullFileName: string): string; 
var 
    lBuffer:  TBytes; 
    lEncoding: TEncoding; 
    lFileStream: TFileStream; 
    lSize:  Integer; 

begin 

    if not FileExists(aFullFileName) then 
    begin 
    raise Exception.Create('File "' + aFullFileName + '" not found.'); 
    end; 

    lFileStream := TFileStream.Create(aFullFileName, fmOpenRead + fmShareDenyNone); 
    try 

    if lFileStream.Size <= 0 then 
    begin 
     Result := ''; 
    end 
    else 
    begin 

     lSize := lFileStream.Size - lFileStream.Position; 

     SetLength(lBuffer, lSize); 

     // Read file into TBytes buffer 
     lFileStream.Read(lBuffer[0], lSize); 

     // Read encoding from buffer 
     TEncoding.GetBufferEncoding(lBuffer, lEncoding); 

     // Get string from buffer 
     Result := lEncoding.GetString(lBuffer); 

    end; 

    finally 
    lFileStream.Free; 
    end; 

end; 

जब कोई विचार मेरे सिर पर टक्कर मार रहा था: मानक पुस्तकालय में ऐसा कुछ होना चाहिए। कई उपयोगकर्ता एक स्ट्रिंग में एक टेक्स्ट फ़ाइल पढ़ना चाहते हैं, लेकिन मुझे ऐसा मानक फ़ंक्शन नहीं मिला। मैं सबसे नज़दीक आया था पाठ लोड करने के लिए TStringlist का उपयोग कर रहा था। लेकिन ए) एक टीस्ट्रिंगलिस्ट बनाना अनावश्यक दिखता है और बी) मैं टीस्ट्रिंगलिस्ट से ओवरहेड पीड़ित नहीं करना चाहता हूं।

प्रश्न: क्या डेल्फी 2010 में मानक लोडटेक्स्टफ्रोफाइल फ़ंक्शन है?

Answer 1

हां डेल्फी 2010 में इस तरह के एक समारोह मौजूद है, जिसे ReadAllText कहा जाता है और IOUtils इकाई में घोषित TFile रिकॉर्ड का हिस्सा है।

चेक इस घोषणा

class function ReadAllText(const Path: string): string; overload; inline; static; 
class function ReadAllText(const Path: string; const Encoding: TEncoding): string; overload; inline; static; 

इस नमूना देखने

program Project80; 

{$APPTYPE CONSOLE} 

uses 
    IOUtils, 
    SysUtils; 
Var 
Content : string; 
begin 
    try 
    Content:=TFile.ReadAllText('C:\Downloads\test.css'); //load the text of the file in a single line of code 
    //Content:=TFile.ReadAllText('C:\Downloads\test.css',TEncoding.UTF8); //you can an encoding too. 
    Writeln(Content); 
    Readln; 
    except 
    on E: Exception do 
     Writeln(E.ClassName, ': ', E.Message); 
    end; 
end. 

Answer 2

TStringStream.LoadFromStream/फ़ाइल? वैसे भी बहुत बड़े तार हमेशा थोड़ा अपमानजनक होते हैं। आपको गलती से इसकी प्रतिलिपि बनाने के लिए बहुत सावधान रहना होगा।

Answer 3

एक त्वरित तरीका TStringList.LoadFromFile है()। फिर डेटा को एक बड़ी स्ट्रिंग के रूप में एक्सेस करने के लिए TStringlist.Text का उपयोग करें। कोशिश करने/मुक्त करने के लिए मत भूलना, आदर्श रूप से कोशिश करें .. अंतिम रूप से ब्लॉक करें।

Answer 4

मैंने एक ही समाधान की कोशिश की, लेकिन इसे lEncoding एक क्लास वैरिएबल बना दिया ताकि इसे लगातार बनाया जा सके, इसलिए मैं अपनी फ़ाइल को उसी एन्कोडिंग में सहेजूंगा जैसा मैंने इसे पढ़ा था। हालांकि, GetBufferEncoding पर कॉल कुछ भी नहीं करता है अगर lEncoding पहले से ही कुछ पर सेट है (जैसा कि पिछली फ़ाइल पढ़ी गई थी)। तो, सबसे पहले मैंने इसे मुक्त करने की कोशिश की और इसने पूरे स्थान पर पहुंच उल्लंघन का कारण बना दिया। अब मैं इसे दूसरी कॉल करने से पहले इसे शून्य करने के लिए सेट करता हूं और ऐसा लगता है कि यह काम करता है।

कुछ इस तरह:

if Assigned(lEncoding) then begin 
    lEncoding := nil; 
end; 
GetBufferedEncoding(buffer, lEncoding);