01. august 2004 - 11:44Der er
6 kommentarer og 1 løsning
Fil til array?
Lige endnu et delphi-spørgsmål. Jeg fik tidligere hjælp til at åbne en fil ind i en memo.
Det ser sådan her ud:
procedure TForm1.benlogfil1Click(Sender: TObject); begin if OpenLog.Execute then Memo1.Lines.LoadFromFile(OpenLog.Filename); end;
Nu vil jeg gerne arbejde lidt med den fil inden den bliver smidt ind i memo'en.
Det jeg gerne vil gøre ved filen er at smide den ind i et array. Jeg har lavet noget lignende i php og der er et yderst smart kommando, som måske også findes i delphi?
I PHP kan man smide den ind i et array, således at f.eks. $array[race time]=38.
Er der en smart måde at gøre det på i Delphi (I php kræver det kun 1 kommando)?
Når det så er gjort, vil jeg gerne bestemme hvilke ting fra array'et, der skal skrives i memo'en. Altså hele filen skal ikke udskrives i memo'en - kun de ting jeg ønsker....
----------------------------- Lige et tillægsspørgsmål: Hvordan laver man linjeskift i "showmessage" kommandoer?
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.
procedure TForm1.Button_readClick(Sender: TObject); var IniFile : TIniFile; S : string; begin IniFile := TIniFile.create('c:\myini.ini'); S := IniFile.readString('race','race laps','');
Det der skal ske er: 1) Filen loades vha. OpenLog.Execute delen 2) Jeg skal have filen smidt ind i et array, således at jeg kan sende kun de ting jeg ønsker ind i Memo'en - f.eks. således at der står Racelaps=34 i memo'en, mens alt det andet i logfilen så at sige er fjernet. 3) Senere er det så meningen at alt det der står i Memo'en skal kunne gemmes i en ny fil...
Er det forståeligt nok? Synes selv det virker lidt uklart:)
Så brug en CheckListBox, så kan du vælge hvad du vil
procedure TForm1.Button2Click(Sender: TObject); begin // her fyldes CheckListBox'en checklistbox1.Items.LoadFromFile('c:\myini.ini'); end;
procedure TForm1.Button3Click(Sender: TObject); var i: integer; begin memo1.Clear; // her skrives de ting i memo'em du har valgt fra CheckListBox for i := 0 to CheckListBox1.Items.Count - 1 do begin if CheckListBox1.Checked[i] then memo1.Lines.Add(CheckListBox1.Items[i]); end; end;
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.
