Считывать строки из текстового DOS файла

Советы » DOS и Консоль » Считывать строки из текстового DOS файла

procedure

ReadDosTextFile(FileName: string

; List: TStrings); var

S: string

; i: integer; begin

List.BeginUpdate; try

List.LoadFromFile(FileName); for

i:=0 to

List.Count - 1 do

begin

S:=List[i]; OemToChar(PChar(S), PChar(S)); List[i]:=S; end

; finally

List.EndUpdate; end

; end

; procedure

WriteDosTextFile(FileName: string

; List: TStrings); var

S: string

; I: integer; L: TStringList; begin

L:=TStringList.Create; try

L.Assign(List); for

i:=0 to

L.Count - 1 do

begin

S:=L[i]; CharToOem(PChar(S), PChar(S)); L[i]:=S; end

; L.SaveToFile(FileName); finally

L.Free; end

; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com