Forum: Sonstige Fragen zu Delphi
Delphi
by bitsetter,
14. Mär 2007
Hallo,
ich habe den Code weiter oben jetzt so abgeändert, das er den geänderten Buffer als "PCL" Datei abspeichert.
Aus dem Buffer wurde praktisch der ausgegebene Inhalt vom Memo ausgeschnitten und dann als "PCL" Datei abgespeichert.
Deine Test_okay.pcl Datei habe ich nicht gefunden.
Meine CSA Ausgangstdatei war jedenfalls 74.490 Bytes groß und meine PCL End Datei 73.965 Bytes also 525...
Forum: Sonstige Fragen zu Delphi
Delphi
by bitsetter,
14. Mär 2007
Hallo,
geht es so? Im Memo sieht es aber wegen fehlender Steuerzeichen etwas komisch aus.
function PosEx_(const SubStr, S : String; Offs: integer = 1): integer;
begin
Result:= 0;
if (Offs> 0) and (Offs<= length(S))then
begin
Result:= Pos(SubStr, string(@S));
Forum: Sonstige Fragen zu Delphi
Delphi
by bitsetter,
9. Mär 2007
Moin,
hier ist ein kleiner Lösungsansatz von mir:
procedure TForm1.Button1Click(Sender: TObject);
var fs: tfilestream;
buffer, Pfad, WVerarbeitung: AnsiString;
l, Anfang, Ende: integer;
begin
Pfad:= 'c:\Test.csa';