Registriert seit: 10. Jun 2003
Ort: Berlin
9.403 Beiträge
Delphi 11 Alexandria
|
AW: file of char delphi7 geht nicht
10. Nov 2011, 20:55
wie lese ich aus der datei "inbox.toc" die ersten 322 zeichen heraus (die datei ist deutlich länger als 322) und übertrage die zeichen 122 bis 153 auf einen string?
Welche Zeichen willst du nun? Nur die 32 genannten oder die ersten 322? Die genannten Zeichen:
Delphi-Quellcode:
var
FileContents: TFileStream;
MailData: AnsiString;
begin
FileContents := TFileStream.Create(ExtractFilePath(ParamStr(0)) + 'inbox.toc', fmOpenRead);
try
FileContents.Position := 122;
SetLength(MailData, 32);
FileContents.ReadBuffer(Pointer(MailData), 32);
ShowMessage(string(MailData));
finally
FileContents.Free;
end;
Sebastian Jänicke Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
|