henter fra txt

www.udvikleren.dk > tutorial > delphi > flere sprog...

.

du skal bare lave lidt om http://www.udvikleren.dk/show_article.php?id=56

Det ville måske være en fordel for dig at se lidt på Ini-filer. Du kan læse om dem i Delphi's hjælpe-fil!!!! Ellers kan du bare loade dem ind i en TStrigList og derefter behandle dem med en løkke!!!

var
  S : TStringList;
  i : Integer;
  T : string;
begin
  S := TStringList.Create; // <-- Skaber en StringList
  S.LoadFromFile('C:\bla.txt'); //<-- Indlæser fil fra din HardDisk til din StringList
  for i := 0 to Length(S.text-1) do // <-- laver en for-to løkke
  begin
    T := Copy(S.text,i,i+1); // <-- Kopiér Tegn for Tegn for dernæst at kontrollere dem
    if T = ' ' then // <-- fundet et mellemrumstegn i teksten
                    // Her kan du eventuelt gøre noget
  end; // <-- afslutter løkken
end;

Noget lign måske!!!

Var
st:Tstringlist;
i:integer;
begin
st := tstringlist.create;
st.loadfromfile('C:\min.txt'); //fil navn
For i := 0 to st.count-1 do
begin
Listbox1.items.add(copy(st.strings[I], 0, pos(' ', st.strings[I])-1));
Listbox2.items.add(copy(st.strings[I], pos(' ', st.strings[I])+1, length(st.strings[I])));
end;

har ikke testet det men noget i den stil er det...
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  F : TextFile;
  S : string;
begin
  ListBox1.Clear;

  AssignFile(F, 'c:\test.txt');
  Reset(F);

  while not EOF(F) do
  begin
    ReadLn(F, S);
    ListBox1.Items.Add(S);
  end;

  CloseFile(F);
end;

Jeg læste ikke spørgsmålet ordentligt. Prøv denne metode i stedet

procedure TForm1.Button2Click(Sender: TObject);

  function SplitStr(const S : string;
    var SubStr1, SubStr2 : string) : Boolean;
  var
    P : Integer;
  begin
    P := Pos(' ', S);
    if P > 0 then
    begin
      SubStr1 := Copy(S, 1, P);
      SubStr2 := Copy(S, P + 1, Length(S));
      Result := True;
    end
    else
      Result := False;
  end;

var
  F : TextFile;
  S : string;
  Item1, Item2 : string;
begin
  ListBox1.Clear;

  AssignFile(F, 'c:\test.txt');
  Reset(F);

  while not EOF(F) do
  begin
    ReadLn(F, S);

    if SplitStr(S, Item1, Item2) then
    begin
      ListBox1.Items.Add(Item1);
      ListBox2.Items.Add(Item2);
    end;
  end;

  CloseFile(F);
end;

kender godt til ini filer, men kan man bruge dem til dette problem?
Gav pointene til dkn, men tak for alle svarene :)