textdatei mit mehren zeilen pro datensatz speichern??

[Bummi]

im Zweifelsfalle so ...

Delphi-Quellcode:

begin
  sl :=TStringList.create;
  sl2:=TStringList.Create;
  try
  sl.assign(memo1.Lines);
  TRimList(sl);
  for I := 0 to sl.Count -1 do
      begin
        sl2.Text := StringReplace(sl[i],';',#13#10,[rfReplaceAll]);
        // hier dann Dein eigentlicher Edit/InserCode
        Showmessage(sl2.Values['Vorname'] +'-' + sl2.Values['Nachname'] + '-'+ sl2.Values['Strasse'])
      end;
  finally
    sl.Free;
    sl2.free;
  end;
end;