Excelfil og data i program

Gem km2006 i mappen med dit project som .csv fil med ; som separator.
Tast kommune nummer ind i Edit1, og tryk paa Button1.
Ikke testet, har travlt...

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  SL1, SL2: TStringList;
begin
  SL1 := TStringList.Create;
  SL2 := TStringList.Create;
  SL1.Clear;
  SL1.LoadFromFile(ExtractFilepath(Application.Exename) + 'km2006.csv');

  for i := 5 to SL1.Count-1 do
  begin
    SL2.Clear;
    ExtractStrings([';'],[],PChar(SL1[i]),SL2);
    if StrComp(PChar(SL2[2]),PChar(Edit1.Text)) = 0 then
    begin
      Edit2.Text := SL2[0]; //Loader kommune navn ind i Edit2.
      Edit3.Text := SL2[3]; //Loader alfabet nr. ind i Edit3.
      // osv...
      break;
    end;
  end;

  SL1.Free;
  SL2.Free;

Du behøver ikke bruge ExtractStrings - den eller lignende funktionalitet er indbygget i TStringList.

Se evt. mit indlæg i http://www.eksperten.dk/spm/747212 (og brug Try/Finally hvor du kan). Det ligner is_delphis men bruger ikke eksterne pchar-procedurer

Hej begge to.

Jeg må erkende, at jeg ikke er så god, som jeg håber og som i tror ;o)

Lad os sige, at jeg har en StringGrid med nogle passende kolonner.

Hvordan får jeg så data ind i denne StringGrid, så de er til at arbejde med.

Jeg vil gerne belønne med flere points, da det kræver mere end som så at lære mig det ;o)

Her er den testede version af det eksempel mit link pegede til:

Givet tekstfilen:
-----------------
Magda Tordenskiold;Helgolandsvej 1;1000;København;55443322
Norma Tjald;Vestre Stationsvej 1;5000;Odense C;35443322
Henry Taskenskjold;Georg Stages minde 12;7500;Holstebro;97443322
Henny Christensen;Vestergade 1;5500;Faaborg;75443322

Følgende kode smækker data over i en TListView (lvData), der er sat i vsReport-mode og indeholder 5 kolonner.

procedure TfrmMain.bTestClick(Sender: TObject);
var
  i, j : integer;
  Lines : TStringList;
  Fields : TStringList;
  Navn, Adresse, Postnr, By, Telefon : string;
begin
  Lines := TStringList.Create;
  Fields := TStringList.Create;
  try
    Fields.QuoteChar := #0;
    Fields.Delimiter := ';';
    Fields.StrictDelimiter := true; // Denne her er vigtig!

    Lines.LoadFromFile('data.csv');
    for i := 0 to Lines.Count - 1 do
    begin
      Fields.DelimitedText := Lines[i];

      // Nulstil for der kan jo være variabelt antal felter på linjen
      Navn := '';
      Adresse := '';
      PostNr := '';
      By := '';
      Telefon := '';

      // Pløj gennem felterne der nu ligger på hver sin plads i listen
      for j := 0 to Fields.Count - 1 do
        case j of
          0 : Navn := Fields[j];
          1 : Adresse := Fields[j];
          2 : PostNr := Fields[j];
          3 : By := Fields[j];
          4 : Telefon := Fields[j];
        end;

      if Fields.Count > 0 then // Ikke tage tomme linjer med
        with lvData.Items.Add do // Lav en TListItem og fyld den med data
        begin
          Caption := Navn;
          SubItems.Add(Adresse);
          SubItems.Add(PostNr);
          SubItems.Add(By);
          SubItems.Add(Telefon);
        end;
    end;
  finally
    Fields.Free;
    Lines.Free;
  end;
end;

Man kunne selvfølgelig køre data direkte over i et TListItem og spare nogle linjer kode, men jeg tror der vil kunne opstå problemer med variabelt antal felter på linjerne. Mener TListView ikke er så glad for dem. Det kan dog ordnes således:

procedure TfrmMain.bTestClick(Sender: TObject);
var
  i, j : integer;
  Lines : TStringList;
  Fields : TStringList;
begin
  Lines := TStringList.Create;
  Fields := TStringList.Create;
  try
    Fields.QuoteChar := #0;
    Fields.Delimiter := ';';
    Fields.StrictDelimiter := true; // Denne her er vigtig!

    Lines.LoadFromFile('data.csv');
    for i := 0 to Lines.Count - 1 do
    begin
      Fields.DelimitedText := Lines[i];

  for i := 0 to Lines.Count - 1 do
    begin
      Fields.DelimitedText := Lines[i];
      with lvData.Items.Add do
      begin
        // Fyld data i TListView
        for j := 0 to Fields.Count - 1 do
          case j of
            0 : Caption := Fields[j]);
            1 : SubItems.Add(Fields[j]);
            2 : SubItems.Add(Fields[j]);
            3 : SubItems.Add(Fields[j]);
            4 : SubItems.Add(Fields[j]);
          end;
 
        // Top op med tomme felter
        for j := Fields.Count - 1 to 4 do
          SubItems.Add('');
      end;
    end;
  finally
    end;
  finally
    Fields.Free;
    Lines.Free;
  end;
end;

Hej.

Hvad kan problemet være, når den ikke kender til "strictDelimiter? (den vigtige linie).

Jeg får en fejl om undeclared identifier

At du ikke kører D2006; der er den vigtig. Kommentér den ud og se om det virker - det mener jeg det gør. Hvorfor de har valgt at pille i den del i D2006 er mig lidt en gåde.

Jeg siger tak og giver points, hvis du sender et svar.

@ hrc

Jeg skylder dig nogle points, hvis du sender et svar ;O)

Jov, jov. Jeg svarer gerne når nu jeg nødes :-)

Du skal jo have, hvad du fortjener, og 100 pesetos er jo også en slat. ;o)