Editbox til Label

Du kan evt. bruge en INI fil til at gemme det valgte i og loade det ind igen ved program start, hvis noget skal være permanet uden du gør noget skal du sætte det i objectinspec. når du designer det

Tak det prøver jeg lige, kan du evt. give mig en kode til oprette, åbne og lukke sådan en fil.
og evt. hvordan jeg gemmer en edit.text i den fil

tilføj inifiles i uses

// her gemmer du

procedure TForm1.Button1Click(Sender: TObject);
var
  IniFile : TIniFile;

begin
  IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'settings.ini');

  IniFile.WriteString('Settings','edit1',edit1.Text);


  inifile.free
end;

// her læser du

procedure TForm1.Button2Click(Sender: TObject);
var
  IniFile : TIniFile;

begin
IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'settings.ini');
edit1.Text := IniFile.readString('Settings','edit1','');

inifile.free;

end;

Stoney

Stoney
Ved du også hvordan man bytter et billede ud med et andet via opendialog
Jeg har følgende men får fejl, jeg har et image som hedder firmalogo
der kommer en fejl om samme navn ?? jeg forstår det ikke

koden

procedure TMainBudget.LogoClick(Sender: TObject);
var
  Image : TImage;
begin
  If OpenPictureLogo.Execute then
      Image := FirmaLogo.Create(Self);
      Image.Picture.LoadFromFile(OpenPictureLogo.Filename);
end;

Kan du ikke bare droppe en timage på formen i stedet for at create
den dynamisk.

Stoney

Jeg er lidt ny i det her, men jeg har et i en TImage som jeg gerne vil at brugeren kan skifte ud ved at vælge et billede fra OpenDialog

Ang. Inifilen så brokker den sig når jeg tager flere Edit.text med

Koden er her
procedure TNytFirmanavn.GemENytFirmaClick(Sender: TObject);
var
  IniFile : TIniFile;
begin
  MainBudget.LFirmaNavn.Caption := ENyFirmaNavn.Text;
  MainBudget.LFirmaAdr.Caption := ENyFirmaAdr.Text;
  MainBudget.LFirmaPostNr.Caption := ENyFirmaPostNr.Text;
  MainBudget.LFirmaBy.Caption := ENyFirmaBy.Text;
  MainBudget.LFirmaSeNr.Caption := ENyFirmaSeNr.Text;
  MainBudget.LFirmaTel.Caption := ENyFirmaTel.Text;
  MainBudget.LFirmaFax.Caption := ENyFirmaFax.Text;
  MainBudget.LFirmaEmail.Caption := ENyFirmaEmail.Text;
  MainBudget.LFirmaEjer.Caption := ENyFirmaEjer.Text;
  MainBudget.FirmanavnVLogo.Caption := ENyFirmaNavn.Text;

  begin
  IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'settings.ini');
  IniFile.WriteString('Settings','FirmaNavn',ENyFirmaNavn.Text
  'FirmaAdr',ENyFirmaAdr.Text);
{ +
  ENyFirmaPostNr.Text+
  ENyFirmaBy.Text+
  ENyFirmaSeNr.Text+
  ENyFirmaTel.Text+
  ENyFirmaFax.Text+
  ENyFirmaEmail.Text+
  ENyFirmaEjer.Text+
  ENyFirmaNavn.Text
  );
}
  inifile.free
end;

Fejl to many parameters

procedure TMainBudget.LogoClick(Sender: TObject);

begin
  If OpenPictureLogo.Execute then
     
      Image.Picture.LoadFromFile(OpenPictureLogo.Filename);
end;

Stoney

IniFile.WriteString('Settings','edit1',edit1.Text);
IniFile.WriteString('Settings','edit2',edit2.Text);

Du skal lave en linie for hver ting du vil gemme

Stoney

OK tak jeg troede bare den over skrevet linien for hvergang.

Har du en kommentar til det med billedet
Det jeg vil er at bytte et billede ud i en TImage via en OpenDialog så næste gang man åbner programmet så er det det logo man valgte sidste gang.

// her åbner og gemmer du
procedure TForm1.Button1Click(Sender: TObject);
var
  IniFile : TIniFile;

begin
  IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'settings.ini');

  IniFile.WriteString('Settings','logo',openpicturelogo.FileName);


  inifile.free
end;

// her henter du billedet igen


procedure TForm1.Button2Click(Sender: TObject);
var
  IniFile : TIniFile;
  logo : string;

begin
IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'settings.ini');
logo := IniFile.readString('Settings','logo','');


image1.Picture.LoadFromFile(logo);

inifile.free;

end;

Stoney

OK flot du er jo dygtig, men jeg får ikke billedet vist, kan det være fordi jeg har mit Timage på TTabsheet ??

PS hvad står "paramStr(0))+'setting.ini')" for

"paramStr(0))+'setting.ini')"  laver en ini fil der hedder settin.ini i samme bibliotek som dit program/exe fil.

Det med billedet skal virke. Prøv at checke din kode/variabel navne

Stoney

OK Tak for hjælpen og god Weekend