23. oktober 2003 - 00:08Der er
6 kommentarer og 2 løsninger
Baby-eksempel på textfil-savetofile (writeln)
Har desværre ikke brugt disse rutiner tilstrækkeligt til at jeg har kunnet forstå at modificere consol-metoder (turbo-Pascal) til Delphi-metoder og de sammenhænge jeg har haft brug for dem (memo.lines.text) har været forskellig fra dem jeg søger at løse aktuelt (strenge - noget der som regel giver mig en lidt 'svedig' fornemmelse).Hvis man har en streng (en slags resultat konstrueret ved at 'plusse' flere strenge) og man vil gemme den i en tekstfil: AssignFile og ReWrite og Writeln, som jeg engang har haft lidt rutine med i DOS dagene og som jeg godt kunne bruge et eksempel på nu.
Håber I har et lille eksempel liggende jeg kan bruge.Har rodet og rodet i bøger uden at finde noget.
Forstår ikke spgm 100%, men hvis du har teksten i en memo (kaldet memo1) så er det memo1.Lines.SaveToFile('filnavn.txt'); Du kan i øvrigt tilføje til en memo med: memo1.Lines.Add(DetteErEnStreng);
procedure TForm1.Button1Click(Sender: TObject); var f : TextFile; s : string; begin s := 'hello ' + 'world'; AssignFile(f,'d:\tmp\x.txt'); Rewrite(f); WriteLn(s); CloseFile(f); end;
Skal du læse fra en eksisterende fil bruger du Reset(f) istedet for Rewrite. Skal dil tilføje bruger du Append(f)
Tak for svarene.Doc404 kommer tættest på det jeg var ude efter (jvf at memo.lines ikke kunne bruges) - derfor flest point til doc404.Vender tilbage hvis der er evt.elle 'knuder'.Foreløbig tak. Hilsen Jan
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
