Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by p80286,
25. Sep 2019
function TKlasse.StringToStream ( const InputString: String; var ResultStream: TMemoryStream ): Boolean;
var
i: Integer;
begin
// falls was schiefgeht, erstmal falsen
Result := False;
if (Length(InputString) >0) then
begin
// falls stream inexistent ist, einen erstellen, ansonsten auf null position stellen
if (ResultStream = NIL) then
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by p80286,
24. Sep 2019
war da nicht vor nicht so langer Zeit jemand, der mit readln gelesen hat, und sich dann gewundert hat, das nach dem zurückschreiben (nicht mit writeln) der Text etwas unleserlich war?
Gruß
K-H
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by p80286,
24. Sep 2019
Sicher? ist es nicht eher langByte=length(instring)*sizeof(char);
Ggf. muß noch an die abschließenden CRLF gedacht werden also langByte=length(instring)*sizeof(char)+sizeof(linebreak);
Gruß
K-H