Var F : Textfile; str:String; Begin AssignFile(F, 'C:\mads.txt'); Reset(F); Readln(F,str); edit1.text := str; // nu er teksten i variablen str Closefile(F); label1.caption := str;
hvis nu man vil ahve alle linierne hvordan gøres det??
prøvet sådan her
Var F : Textfile; str:String; Begin AssignFile(F, 'C:\mads.txt'); Reset(F); while not EOF(F) do begin Readln(F,str); end; Closefile(F); label1.caption := str;
procedure TForm1.Button1Click(Sender: TObject); var sl : TStringlist; i: integer; begin sl := TStringlist.Create; sl.LoadFromFile('D:\txt1\myfile.txt'); for i:= sl.Count-1 downto 0 do if sl[i] = 'Delphi' then listbox1.Items.Add(sl[i]);
end;
Hvis der står Delphi på og kun delphi i en linie i text filen blive den overført til listboxen.
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.
