textdatei mit mehren zeilen pro datensatz speichern??

[Bummi]

Delphi-Quellcode:

Procedure TRimList(sl:TStringList);
begin
  sl.Delete(0);
  sl.Delete(sl.Count-1);
  sl.text := StringReplace(sl.text,'ende'#13#10'anfang','',[rfReplaceAll]);
  sl.text := StringReplace(sl.text,' "','=',[rfReplaceAll]);
  sl.text := StringReplace(sl.text,'"'#13#10,';',[rfreplaceAll]);

end;

procedure TForm5.Button1Click(Sender: TObject);
var
 sl,sl2:TStringList;
 i:Integer;
begin
  sl :=TStringList.create;
  sl2:=TStringList.Create;
  sl2.Delimiter :=';';
  sl2.StrictDelimiter := true;
  try
  sl.assign(memo1.Lines);
  TRimList(sl);
  for I := 0 to sl.Count -1  do
      begin
        sl2.DelimitedText := sl[i];
        // hier dann Dein eigentlicher Edit/InserCode
        Showmessage(sl2.Values['Vorname'] +'-' + sl2.Values['Nachname'] + '-'+ sl2.Values['Strasse'])
      end;
  finally
    sl.Free;
    sl2.free;
  end;
end;