Thema: Delphi Aus TStringList laden

Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.105 Beiträge
 
Delphi 11 Alexandria
 
#8

Re: Aus TStringList laden

  Alt 12. Feb 2006, 14:33
Moin Martin,

sorry, Denkfehler von mir

Wenn Du verschiedene Formulare hast und Felder hast, musst Du den String erst einmal trennen:
(Annahme: Es liegt immer die Aufteilung <Formularname>.<Editname> vor)

Delphi-Quellcode:
var
  frm : TForm;
  edt : TEdit;

begin
  // Nur der Kern der Schleife

  // Gewünschtes Formular ermitteln, dessen Name sollte bis zum . stehen
  frm := Application.FindComponent(copy(laden[i],1,pos('.',laden[i])-1)) as TForm;
  if frm <> nil then begin // Formular gefunden
    // jetzt das Editfeld ermitteln
    edt := frm.FindComponent(copy(laden[i],pos('.',laden[i])+1,MaxInt)) as TEdit;
    if edt <> nil then begin // Edit gefunden
      ShowMessage(edt.Text);
    end;
  end;
end;
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat