String mit 0 Bytes als Datei Speichern

[Popov]

Das ist die Prozedur die aufgerufen wird wenn ein String eine TStrings.Text zugeweisen wird:

Delphi-Quellcode:

procedure TStrings.SetTextStr(const Value: string);
var
  P, Start: PChar;
  S: string;
begin
  BeginUpdate;
  try
    Clear;
    P := Pointer(Value);
    if P <> nil then
      while P^ <> #0 do
      begin
        Start := P;
        while not (P^ in [#0, #10, #13]) do Inc(P);
        SetString(S, Start, P - Start);
        Add(S);
        if P^ = #13 then Inc(P);
        if P^ = #10 then Inc(P);
      end;
  finally
    EndUpdate;
  end;
end;

//Edit

Evtl. eine Deutung: bei #0 ist Schluß mit String, da steigt die Routine raus.