Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Textdatei in Record Muster überführen

    Delphi
    by Klaus01, 21. Jan 2013
  procedure TForm1.Button1Click(Sender: TObject); //Konvertieren: inhalt textfile an record datei übergeben
  
  var srcfile: textfile;
  destfile: file of Tperson;
  line: string;
  person: Tperson;
  begin
  assignfile(srcfile,'adressen.txt'); //Quelle öffnen
  reset(srcfile);
  assignfile(destfile,'recadressen.dat'); //Ziel öffnen
• Forum: Object-Pascal / Delphi-Language

  AW: Textdatei in Record Muster überführen

    Delphi
    by Klaus01, 21. Jan 2013
  aus der Delphi Hilfe:
  
  
  
  rec_pos:=strtoint(edit1.text); //gewünschte Person aus Edit1 lesen
  für Edit1 ein von 0..anz_recs
  assignfile(destfile, 'recadressen'); //record Datei öffnen
  reset(destfile);
  
  anz_recs:=filesize(destFile); //grenzt die Eingabemögl.
• Forum: Object-Pascal / Delphi-Language

  AW: Textdatei in Record Muster überführen

    Delphi
    by Klaus01, 21. Jan 2013
  nun, wenn du die Datei unter einem bestimmten Namen speicherst (recadressen.dat)
  solltest Du sie auch wieder unter dem gleichen öffnen.
  
  Ich würde an Deiner Stelle beim Abspeichern und Laden den Pfad mit angeben.
  
  Edit1:
  anz_recs:=filesize('recadressen') div recordsize;
  ist meines Erachtens falsch.
  
  Bei typisierten Dateien gibt fileSize die Anzahl der Datensätze zurück und die die...
• Forum: Object-Pascal / Delphi-Language

  AW: Textdatei in Record Muster überführen

    Delphi
    by Klaus01, 12. Jan 2013
  procedure TForm1.Button1Click(Sender: TObject);
  var
  spruch, autor:string;
  dataSet : TSprueche; // dein Record
  begin
  nr:=random(filesize(datei));
  seek(datei,nr);
  //*Wie kann ich nun das was er da geseeked hat als string unter spruch speichern und den autor
  unter autor?
  read(datei,dataSet); // den record aus der Datei lesen
• Forum: Object-Pascal / Delphi-Language

  AW: Textdatei in Record Muster überführen

    Delphi
    by Klaus01, 12. Jan 2013
  .. auslesen könnte so gehen..
  
  procedure readRandomDataset(fileName: TFilename; var dataSet: TSprueche);
  var
  dataFile : file of TSprueche;
  idx : longInt;
  begin
  assignFile(dataFile,fileName);
  reset(dataFile); //Datei öffnen, Dateizeiger auf Pos. 0
  idx := random(sizeOf(dataFile)); // ermitteln eines zufälligen Datensatzes/Records
• Forum: Object-Pascal / Delphi-Language

  AW: Textdatei in Record Muster überführen

    Delphi
    by Klaus01, 12. Jan 2013
  Hallo,
  
  musst Du die TextDatei so einlesen?
  
  Einfacher ginge es mit einer TStringList und dem entsprechenden Delimiter.
  
  Grüße
  Klaus