Registriert seit: 19. Mai 2003
Ort: Gründau
2.480 Beiträge
Delphi XE7 Architect
|
Re: ValueListEditor allg. Frage
30. Nov 2003, 22:33
Ich habe es jetzt folgendermaßen gelöst...
Delphi-Quellcode:
procedure TForm1.ValueListEditor1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
var ini:Tinifile;
begin
ini:=Tinifile.Create(ExtractFilePath(ParamStr(0))+'archiv.ini');
try
Memo1.Lines.Clear;
Label8.Caption:=ini.ReadString(ValueListEditor1.Strings.Names[ValueListEditor1.row-1],'Name',Text);
Label9.Caption:=ini.ReadString(ValueListEditor1.Strings.Names[ValueListEditor1.row-1],'CDs',Text);
Label10.Caption:=ini.ReadString(ValueListEditor1.Strings.Names[ValueListEditor1.row-1],'Format',Text);
Label11.Caption:=ini.ReadString(ValueListEditor1.Strings.Names[ValueListEditor1.row-1],'TonFormat',Text);
Label12.Caption:=ini.ReadString(ValueListEditor1.Strings.Names[ValueListEditor1.row-1],'BildQualitaet',Text);
Label13.Caption:=ini.ReadString(ValueListEditor1.Strings.Names[ValueListEditor1.row-1],'Sprachen',Text);
Label14.Caption:=ini.ReadString(ValueListEditor1.Strings.Names[ValueListEditor1.row-1],'Untertitel',Text);
finally
ini.free;
end;
end;
Ja, um was geht es? Genau, ein Programm zum filme archivieren. Werde es auch hier freigeben. wenn ihr mir helfen wollt. Immer gerne
|
|
Zitat
|