Delphi Project Viewer 1.0

[himitsu]

Das Format ist auch offen und recht einfach.

TReader, TWriter und der Rest versteckt sich in TComponent und TReader/TWriter, die Komponenten/Property-Schreib-/Lesefunktionen.
Kann man gut nutzen, wenn man DFMs "manuell" einlesen will, um was zu suchen, oder weil der DFM-Loader alle Komponenten/Typen braucht, die nicht immer vorhanden sind.
Den "Text" manuell zu parsen ist auch blöd, da ist es schöner sich das von TReader einlesen zu lassen.
Ich hab TReader/TWriter auch schon selber für binäre Speicherformate verwendet, was gut für Abwärtskompatibilität ist, ähnlich zu XML kann man "unbekannte" Teile überspringen, da das Format sich selber kommentiert.

Einkompilert wird auch immernoch die binäre Resource. (glaub ich)

[mjustin]

Eine Suchfunktion, die auch mit den in DFM Dateien auf mehrere Zeilen zerlegten Strings klar kommt, wäre ein echtes Alleinstellungsmerkmal (afaik).

In diesem Beispiel findet GExperts Grep Search zum Beispiel die topfblume nicht

Delphi-Quellcode:

object qryExample: TSimpleDataSet
    DataSet.CommandText = 
      'select * from topf' +
      'blume'
...

[tomkupitz]

Code:

var fs: TFileStream;
    ms: TMemoryStream;

begin
  fs:=TFileStream.Create(fn, fmOpenRead);
  ms:=TMemoryStream.Create;

  try
    ObjectResourceToText(fs, ms);

    Form1.Memo1.Lines.LoadFromStream(ms);

  finally
    fs.Free;
    ms.Free;
  end;
end;

Das will er nicht...

[nahpets]

Warum nicht? Kommentarlos?

[tomkupitz]

Memo bleibt leer. Keine Delphi Meldung. Unteres geht...

Code:

  SrcS := TFileStream.Create(Src, fmOpenRead);
  DestS := TFileStream.Create(Dest, fmCreate);
  try
    ObjectResourceToText(SrcS, DestS);
    if FileExists(Src) and FileExists(Dest) then
      Result := True
    else
      Result := False;
  finally
    SrcS.Free;
    DestS.Free;
  end;

[nahpets]

Bitte Quelltext marginal ändern:

Delphi-Quellcode:

var fs: TFileStream;
    ms: TMemoryStream;

begin
  fs:=TFileStream.Create(fn, fmOpenRead);
  ms:=TMemoryStream.Create;
  try
    ObjectResourceToText(fs, ms);
    ms.Position := 0;  // <-- das muss da rein, dann geht's.
    Form1.Memo1.Lines.LoadFromStream(ms);
  finally
    fs.Free;
    ms.Free;
  end;
end;

[tomkupitz]

So ist das ok. Danke.