Text ind i en fil

Hvad vil det sige at: \"vil den ikke\"? Bliver den ikke større? får du en fejl? og i så fald hvilken? Hvad/hvordan gør du i dag?

Jeg bruger en memobox og SAVETOFILE men filen bliver aldrig mere end ca 56kb og den kommer ikke med fejl....

Det er således ikke W98 der har et problem, men din memobox. Prøv at kigge på kommandoen (og eksemplet for) \"Append\" proceduren.

<SNIP>
var

  f: TextFile;
begin
  if OpenDialog1.Execute then
  begin                    { open a text file }
    AssignFile(f, OpenDialog1.FileName);
    Append(f);
    Writeln(f, \'I am appending some stuff to the end of the file.\');
    { insert code here that would require a Flush before closing the file }
    Flush(f);  { ensures that the text was actually written to file }
    CloseFile(f);
  end;

end;
</SNIP>

Pelle >> Det ER windows 98, eler rettere dens memmory håndtering, og hele den gamle snak, med kode sekmenter og alt det det .... Dele af Win98\'s kærne er stadig 16 Bit !

Jens B

borrisholt >> Hvad kan kan jeg gøre ved det???

borrisholt> Vil du påstå at W98 ikke kan håndtere filer større end 64K? Eller at code segment størrelse kan have indflydelse på fil størrelse?.

Nej jeg vil påstå at den skal hjælpes hvis du fx skal gemme en fil stører end 64 KB.

Dit forslag vil være et godt bud ... Dog har jeg ikke prøvet det ...

Jens B

Jeg har i test-øjemed rodet med BlockRead/BlockWrite og denne har ingen problemer hverken med størrelse eller hastighed, men har ikke specifik testet om Append/WriteLn har problemer (dog kan jeg IKKE forestille mig at det skulle give problemer).

Jeg er ret sikker på at en Windows edit box (som f.ex. TMemo) kun kan indeholde en begrænset mængde i Win98, hvor den i NT og 2K kun er begrænset af RAM.

unclebug >> Du har næsten ret .. En TMemo har samme begrænsninger som notepad .. På WIN98 er der vist omkring 64 kb, hvor i mod det på NT er 2GB. For at komme ud over probelmet på 98 kan du bruge en Richedit.

Problemet på NT kan også læses ved at skifte dit OS ud med 64-Bits udgaven af XP :-)

Jens B

Problemet er måske at filen skal åbnes før den kan skrives til... Man burde næsten allokere pladsen i filen, direkte på disk - og så skrive direkte til nogle tomme sektorer på disken...
Jeg kan se om jeg kan finde noget kode til dette.

jenshertz> Dels lyder \"direkte-sektore-access\" som fuldstændig overkill, og hvis der blot er tale om \"en simpel tekstfil\" burde det ikke være nødvendigt at \"afsætte splads\".

Problemet er Memo\'s SaveToFile under W98 er \"begrænset\", og dette kan nemt løses ved at man append\'er til filen og skriver linierne en af gangen med WriteLn (en BlockWrite kan sikkert også bruges til at tilføje \"Memo.Text\" i et hug).

Hvorfor bruger du memos?

Prøv komponenten TStringList til at ændre med...
Jeg bruger den selv meget - men den kan kun have noget i stil med 65000 linjer - så jeg ved ikke om det er nok.

Eks. :

procedure WriteText(Text,Fil: String; Linje: Integer);
var
  List: TStringList;
begin
  List:=TStringList.Create;
  List.LoadFromFile(Fil);
  List.Insert(Linje,Text); // Eller omvendt...
  List.SaveToFile(Fil);
  List.Free;
end;

Håber det virker i dit tilfælde.

Du kan også benytte \"CreateFileMapping\" og \"MapViewOfFile\", fra win32 biblioteket.

Dette gør at du kan åbne et view på en fil af en vilkårlig størrelse og så flytte dit view på filen ind i ram. På lidt den sammen måde som et vindue med scrollbars.

Brug en RichEdit i stedet for en TMemo så er du overe alle dine problemer !

Jens B