Thema: Delphi speichern von daten

Einzelnen Beitrag anzeigen

quendolineDD

Registriert seit: 19. Apr 2007
Ort: Dresden
781 Beiträge
 
Turbo Delphi für Win32
 
#4

Re: speichern von daten

  Alt 10. Aug 2007, 14:50
Du kannst dir eine Strinlist erstellen, in diese deine 10 Inhalte der Datei laden und dann mit einer Schleife die 10 Daten aus der Stringlist auf die TEdit's verteilen.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var open : TOpenDialog;
    values: TStringlist;
    i : integer;

begin
open := TOpenDialog.Create(self);
if open.execute then begin
        values := TStringList.Create;
        values.loadfromfile(open.filename);

for i := 0 to values.Count -1 do
    memo1.lines[i] := values.Strings[i];
end;
open.Destroy; values.Free;
end;
Solang du deinen absoluten Pfad hast, der sich auch wirklich nicht verändern wird, kannst du den teil mit "if open.execute then begin" weglassen und anstatt open.filename den absoluten Pfad eingeben in den Quelltext.
Desweiteren müsstest du dann nicht den Opendialog initialisieren bzw. zerstören.

Ich wusst jetzt nicht, wie man das Dynamisch auch die Zählvariable i für die Edit's nehmen kann. Hab in letzter Zeit zu viel mit PHP und Javascript gearbeitet :-\
Lars S.
  Mit Zitat antworten Zitat