[delphi]lengte van string tijdens filewrite?

[Verwijderd]

als ik een file wil writen met de file- fucties gaat ie bij mij een beetje kloten...hier eventjes de code:

code:

procedure TForm1.Button1Click(Sender: TObject);
var
  FileHandle: Integer;
  detext: string;
  written: Integer;
begin
      if savedialog1.execute then
            begin
            filehandle := filecreate(savedialog1.FileName);
            detext := edit1.text;
            written := filewrite(filehandle, detext, length(detext));
            label1.caption := inttostr(written);
            fileclose(filehandle);
            end;
end;

wat nu het probleem is...als ik in edit1 blaat ik ben een aap invul, krijg ik op me label1.caption wel netjes te zien hoeveel bytes ie eigenlijk geschreven heeft, maar als ik dan in de file kijk staat er dit: 㼀ŽÈ᱒C㘈ŽðÑB
ja idd, het is brak. weet iemand misschien wat ik fout doe?

[ArieProductions]

File openen als textfile, er zijn in Delphi nogal wat mogelijkheden om text/strings naar een file te schrijven,

Volgens mij schrijf je het nu 'binair' weg.

[Verwijderd]

Het wegschrijven gebeurd inderdaad goed. Door deze code toe te voegen kan je dat controleren:

code:

procedure TForm1.Button2Click(Sender: TObject);
var
  FileHandle: Integer;
  detext: string;
  read: Integer;
begin
      if opendialog1.execute then
            begin
            filehandle := fileopen(opendialog1.FileName, fmOpenRead);
            read := fileread(FileHandle, detext, 5);
            label2.caption := inttostr(read);
            Edit2.Text := detext;
            fileclose(FileHandle);
            end;
end;

[Verwijderd]

Op maandag 01 april 2002 13:56 schreef ArieProductions het volgende:
File openen als textfile, er zijn in Delphi nogal wat mogelijkheden om text/strings naar een file te schrijven,

Volgens mij schrijf je het nu 'binair' weg.

jah, maar als ik dit ga writen:

code:

written := filewrite(filehandle, 'blaataap', 8);

dan schrijft ie het dus niet in binair en komt er gewoon blaataap in een file te staan, en hoe kan het dan dat als ik de inhoud van edit1.text wil schrijven naar een file dat ik dan binaire troep krijg? wat si de oplossing?

[Verwijderd]

code:

written := filewrite(filehandle, Pointer(detext)^, length(detext))

[elevator]

Op maandag 01 april 2002 21:29 schreef Joosie het volgende:

ik de inhoud van edit1.text wil schrijven naar een file dat ik dan binaire troep krijg? wat si de oplossing?

definieer die "detext" eens als 'shortstring', dan zou het denk ik wel moeten werken..

[porn*]

Ik weet niet precies wat je wilt doen, maar kun je geen TStrings gebruiken? Die kan je namelijk erg makkelijk uitlezen & wegschrijven.