20. maj 2001 - 15:49Der er
7 kommentarer og 1 løsning
Antal linier i Memobox
Hvordan finder jeg ud af, hvor mange linier der er i en Memobox?
Jeg skal lave et program hvor jeg kan hente en tekstfil ind i en Memobox, evt. ændre på teksten og derefter gemme teksten. Pointen er at programmet når den gemmer teksten skal ændre hver linie således, at jeg kan kopiere den direkte ind i Delphi. Efter ændring skal hver linie, der gemmes i tekstfilen se sådan ud:
Writeln(TEKSTLINIE);
Hvor TEKSTLINIE er hver linie i Memoboxen.
Det lyder måske mærkeligt, men det er et lille hjælpeprogram, da jeg ellers manuelt skal taste mange hundrede linier kode, der kommer fra et andet program, direkte ind i Delphi.
Jeg havde en idé om at det kunne gøres nogenlunde sådan her, hvor NumberOfLines skal erstattes med en metode til at finde ud af antal linier i Memoboxen.
procedure TForm1.btnConvertClick(Sender: TObject); var DataFile: TextFile;
Begin if SaveDialog1.Execute then begin AssignFile(DataFile, SaveDialog1.FileName); rewrite(DataFile);
for i=0 to NumberOfLines do begin Writeln(DataFile, \'Writeln(\' + Memo1.Lines[i] + \');\' ); end
Flush(DataFile); CloseFile(DataFile); end else exit; end;
Det var mathiasiversen der fik pointene, efter en lille ændring: Memo1.Lines.count
Jeg har ikke prøvet de andre forslag
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.
