Windows, Stream und String hin her convert fehler

[KodeZwerg]

Zitat von Schokohase:

Und das mit dieser gesonderten Betrachtung von CRLF (so wie hier in diesem Thread beschreiben) ist eher ein Indiz von "Ich habe überhaupt gar nichts verstanden" und man sollte den Worten eher keine Beachtung schenken.

Wenn es dich irgendwann dann doch treffen sollte, dann frag einfach nochmal nach, wie man es denn wirklich machen sollte (zudem der Code auch noch kürzer wird).

Das hätte man auch freundlicher Formulieren können oder ich versteh es gerade eher negativ.
Ich schrieb doch bereits das ich mich mit dem Reader/Writer nicht tiefer beschäftigt habe, ich wollte nur kurzfristig für mein (unentgeldlisches... oje.. wassn wort) Hobby-Ding an ein funktionierendes Resultat kommen, genau das habe ich damit erreicht.
Klar, kein Unicode oder wenn man komplette Romane damit abarbeiten würde = Fehler. Das habe ich bereits begriffen, echt jetzt.
Wenn ich mehr Zeit habe, die bei mir momentan sehr sehr knapp bemessen ist, spiele ich mit dem Reader/Writer rum um damit das gleiche zu erzielen mit dem Vorteil auch Unicode und Zeilenumbrüche oder sonstige Escape-Sequenzen korrekt zu interpretieren, doch dafür fehlt mir leider gerade einfach die Zeit.

Wie dem auch sei, ich nahm Deinen Vorschlag bereits dankend an und zu gegebener Zeit (steht in meiner ToDo-Liste) werde ich definitiv damit erlernen umzugehen. Reader und Writer ist ja vom Namen bereits aussagekräftig genug, nur habe ich mich bis jetzt nur auf binärer Ebene mit Streams beschäftigt.
(Ob der Code nun kürzer oder länger ist spielt in meinem Hobby eher eine untergeordnete Rolle, aber klar, kürzer klingt toller )

[Rollo62]

Zitat von Schokohase:

Wahrscheinlich viel zu kurz und viel zu wenig verschwurbelt.

Security by obfuscation

[p80286]

Delphi-Quellcode:

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
      ResultStream := TMemoryStream.Create
    else
      ResultStream.Position := 0;
    i := 0;
    try
  // stream beschreiben
      i := ResultStream.Write(InputString[1], Length(InputString) * SizeOf(Char));
    finally
  // entweder haben wir es geschafft, oder auch nicht :-)
      Result:= (i = Length(InputString) * SizeOf(Char));
    end;
  end;
end;

Wahrscheinlich geht's besser....

Gruß
K-H

[DeddyH]

Was die anderen meinen: man kann die Zuweisung eleganter (und damit auch lesbarer) schreiben.

Delphi-Quellcode:

if Bedingung then
  Result := true
else
  Result := false;

Noch besser:

Delphi-Quellcode:

// Einzeiler
Result := Bedingung;

Somit muss sich niemand wegen doppelter Verneinung das Hirn verrenken

[Rollo62]

Zitat von DeddyH:

Delphi-Quellcode:

if Bedingung then
  Result := true
else
  Result := false;

Ok, ich muss zugeben das mache ich auch manchmal so.

Denn einen Vortail hat es beim Debuggen,
- schnell drübersteppen, und man sieht direkt was die Bedingug war.
- oder mal eben eine Breakpoint draufsetzen.

[freimatz]

Dafür gibt es bedingte Breakpoints

[Rollo62]

Ja natürlich, ist aber etwas umständlicher

Kommt auf den Anwendungsfall an, wenn ich Breakpoints schnell ein/ausschalten möchte,
um z.B. Events von externer Hardware zu debuggen, finde ich das ganz sinnvoll.