Forum: Object-Pascal / Delphi-Language
Delphi
by HPW,
8. Jan 2008
Folgende Version ist wesentlich schneller als die Stringlisten-Version:
IF FileExists(inFile) THEN
BEGIN
AssignFile(mfile, inFile);
Reset(mfile);
while not Eof(mfile) do
begin
Readln(mfile, mstr);
Forum: Object-Pascal / Delphi-Language
Delphi
by HPW,
6. Jan 2008
Das ist wohl richtig, obwohl der Code so funktioniert.
So ist es wohl richtiger.
FUNCTION IntToBinFile( inFile, outFile, delimiter : STRING) : BOOLEAN;
VAR
TempList : TStrings;
OutStream : TMemoryStream;
lstcount : Integer;
intbyte : Byte;
Forum: Object-Pascal / Delphi-Language
Delphi
by HPW,
6. Jan 2008
Hallo,
Ich will eine Textdatei die eine Liste von Integern enthält die mit einem Delimiter gerennt sind nach Binary konvertieren.
Mein Code dafür bislang:
IF FileExists(inFile) THEN
BEGIN
TempList := TStringList.Create;
TRY