Mikey Posted May 20, 2000 Share Posted May 20, 2000 Hur ska man göra för att kunna öppna en TXT-fil till en memoruta och bara visa en viss del av filen. Exempel: Detta är textfilen och detta kommer inte att visas. //10// Här är det som kommer att visas i memorutan i delphi programmet //10// Här är slutet och det kommer inte att visas. Kan man göra någonting i denna stil? /mikey Link to comment Share on other sites More sharing options...
B Wisser Posted May 21, 2000 Share Posted May 21, 2000 Om du vet precis vad din textfil innehåller, och om den inte förändras, så är en enkel men klumpig variant att: Lägg till ytterligare en Memo där visble=False. Läs in filen i den nya Memon. Memo1.Clear; For i:=3 to 5 do Memo1.Lines.Add(Memo2.Lines); Alternativt i Memo2 sök upp aktuell text och sätt Selstart och SelLength för att sedan: Memo1.text:=Memo2.Seltext; Jag vet att detta är klumpigt, men gör det enkelt för dig. Link to comment Share on other sites More sharing options...
J S Posted May 22, 2000 Share Posted May 22, 2000 Ett litet exempel som borde funka bra. var StrList: TStringList; Start, Slut, i: integer; begin StrList := TStringList.Create; //Läser in filen till Strlist StrList.LoadFromFile('c:\test.txt'); //Letar upp var vi ska börja läsa Start := StrList.IndexOf('//start10//'); //Letar upp var vi ska sluta läsa Slut := StrList.IndexOf('//slut10//'); //Läser in raderana till memo1 for i := start+1 to slut-1 do memo1.Lines.add(StrList); //frigör Stringlisten som skapades i början StrList.Free; end; Ändrade lite i filen, exemplet funkar med följande text. "Detta är textfilen och detta kommer inte att visas. //start10// Här är det som kommer att visas i memorutan i delphi programmet //slut10// Här är slutet och det kommer inte att visas." Link to comment Share on other sites More sharing options...
Mikey Posted May 23, 2000 Author Share Posted May 23, 2000 tack så hemskt mycket... /Mikey Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.