Hi

ich habe vergessen wie ich nacheinander di zeilen anhäge und zwar Lade ich aus eine datei bestimmte zeilen in ein memo nur jetzt wird beim laden immerwieder die erste überschrieben wie mach ich das nochmal das alle 4 zeilen angezeigt werden

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
begin
  Memo1.Text := LeseZeileAusDatei(ExtractFilePath(ParamStr(0)) + 'Dateisysconfs\sysconf.s',38);
  Memo1.Text := LeseZeileAusDatei(ExtractFilePath(ParamStr(0)) + 'Dateisysconfs\sysconf.s',39);
  Memo1.Text := LeseZeileAusDatei(ExtractFilePath(ParamStr(0)) + 'Dateisysconfs\sysconf.s',40);
  Memo1.Text := LeseZeileAusDatei(ExtractFilePath(ParamStr(0)) + 'Dateisysconfs\sysconf.s',41);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 ForceDirectories(ExtractFilePath(ParamStr(0)) + 'Dateisysconfs\syscon.s');
end;

function TForm1.LeseZeileAusDatei(Dateiname: String; Zeile: Integer): String;
var Zeilen : TStringList;
begin
  Zeilen := TStringList.Create;
  Zeilen.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Dateisysconfs\sysconf.s');
  try
    Result := Zeilen[Zeile-1];
  except
    Result := '';
  end;
end;

gruss sascha

hallo,

probier's mal mit

markieren

Delphi-Quellcode:

  
  memo1.lines.add();
// oder
  memo1.lines.insert();

Jo

danke das wars