Åben tekst fil i ADODataset med | some delimiter/separator

Hvad er det helt nøjagtig du vil ?

Have indlæst hvert "felt" i en db ?

Stoney

ellers noget i denne stil

procedure TForm1.Button1Click(Sender: TObject);
var
sl,L : Tstringlist;
i : integer;
begin
sl := Tstringlist.Create;
sl.LoadFromFile('c:\test.txt');
for i := 1 to sl.Count -1 do  // 1 for at slippe for første linie
  begin
  L := TStringList.Create;
  L.Delimiter := '|';
  L.DelimitedText := sl[i];

  ShowMessage(L[0]+' ' +L[1] + ' ' + L[2]);
  L.Free;
  end;

sl.Free;
end;

Stoney

Jeg vil have tekst filen ind i en ADODatabase, så jeg kan få den videre ind i et DBGrid. Hvor det normalvis er et TAB som er separator i en tekst database, og komma i en csv database, så er dette bare en tekst database med | som separator.

Så det her:
ID|IDCurrency|IDTeam
1|15|1
2|3|6
3|7|1
4|19|2
5|1|23
6|8|27

Bliver til det her:
ID    IDCurrency    IDTeam
1    15        1
2    3        6
3    7        1
4    19        2
5    1        23
6    8        27

Ok, glem bare det sidste, for det blev ikke som det skulle. Teksten er det vigtige.

www.tradestone.dk/eks522739.zip

Stoney

Tak :D