text fil -> array

Prøv med en Paradox fil, du kan kigge i dette spm. og se hvordan

http://www.eksperten.dk/spm/108995


/Martin

Du kan også indlæse filen i en Tstringlist og derefter indlægge de forskellige linier ind i en array på den ønskede måde.

Her er den optimale (correct me if Im wrong :o) løsning:

procedure TForm1.CommaFileToArray(Sender: TObject);
const
  CHUNK = 1000;
var
  F    : textfile;
  Split : TStringlist;
  Line  : string;
  i    : integer;
  Arr  : array of array of string;
  Count : integer;
begin
  AssignFile(F, \'<din tekstfil>\');
  Reset(F);

  Split := TStringList.Create;

  Count := 0;
  while not Eof(F) do begin
    Inc(Count);
    if (Count >= Length(Arr)) then
      SetLength(Arr, Length(Arr)+CHUNK);
    ReadLn(F, Line);
    Split.CommaText := Line;
    SetLength(Arr[Count-1], Split.Count);
    for i:=0 to Split.Count-1 do begin
      Arr[Count-1, i] := Split[i];
    end;
  end;
  SetLength(Arr, Count);
end;


Bare spørg hvis der er noget du ikke forstår (du siger jo du er nybegynder).

unclebug > Opret et svar, så får du nogle points.

Okie

Halløjsa, jeg har lige snuppet koden ovenfor, men kan ikke finde ud af at hente data fra de forskellige linjer, jeg skal lægge det ind i en memo. Når jeg prøver ( Split[7] ) henter den kun data fra den sidste linje i min tekstfil..
HJÆLP...
Ps. Jeg er også nybegynder..