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.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
