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?
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.
