AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Classhelper für TStream wird nicht erkannt

Classhelper für TStream wird nicht erkannt

Ein Thema von Die Muhkuh · begonnen am 23. Mai 2008 · letzter Beitrag vom 23. Mai 2008
Antwort Antwort
Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#1

Classhelper für TStream wird nicht erkannt

  Alt 23. Mai 2008, 15:32
Hi,

ich hab einen Classhelper für TStream:

Delphi-Quellcode:
type
  // Klassenhelfer für den TStream um Strings komfortabel lesen und schreiben zu können
  TStreamStringWriter = class helper for TStream
  public
    procedure WriteStringToStream(const aString: string);
    function ReadStringFromStream: string;
  end;

implementation

{ TStreamStringWriter }

// Liest einen String aus und gibt ihn zurück
function TStreamStringWriter.ReadStringFromStream: string;
var
  len: Integer;
begin
  ReadBuffer(len, SizeOf(Integer));
  SetString(Result, PChar(nil), len);
  ReadBuffer(Pointer(Result)^, len);
end;

// Schreibt einen String in den Stream
procedure TStreamStringWriter.WriteStringToStream(const aString: string);
var
  len: Integer;
begin
  len := Length(aString);
  WriteBuffer(len, SizeOf(Integer));
  WriteBuffer(PChar(aString)^, len);
end;
Dieser Klassenhelfer liegt in der Datei uclasshelpers.pas.

In einer anderen Datei (ulog.pas) hab ich stehen:

Delphi-Quellcode:
procedure TEFTLogEntry.SaveToStream(aStream: TStream);
var
  i: Integer;
begin
  i := Integer(LogType);
  aStream.WriteBuffer(i, SizeOf(Integer));
  aStream.WriteString(LogEntry);
  aStream.WriteString(LogTime);
end;
Zum Test hab ich die uclasshelpers.pas in die uses von ulog.pas geschrieben. Die Suchpfade dürften eig. passen (zumindest tun sie das für andere Dateien in den gleichen Ordnern).

Jedoch kommt beim Kompilieren, dass 'WriteString' ein undefinierter Bezeichner sei.

Woran könnte es liegen, dass der Classhelper nicht erkannt wird?
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.858 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: Classhelper für TStream wird nicht erkannt

  Alt 23. Mai 2008, 15:37
Deine Methode heisst ja auch .WriteStringToStream()
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#3

Re: Classhelper für TStream wird nicht erkannt

  Alt 23. Mai 2008, 15:39
Danke, ich hab es auch gerade gemerkt

Ich hatte das erst als zwei einzelne Prozeduren / Funktionen und hab den Classhelper drum rum gebaut und dachte, ich hab die schon umbenannt.

Hab den Wald vor lauter Bäumen nicht gesehen

Ich hab jetzt 20 Minuten gebraucht, um das zu bemerken
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:12 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz