Delphi VS VB

[agm65]

Moin Leute, hier mal wieder ne vb - delphi frage..
ist es möglich den string wert einer text box zu speichern ?
in vb:

' läd den textbox inhalt
text1 = GetSetting(App.Title, Me.Name, "Test", "")

'speichert den textbox inhalt
Call SaveSetting(App.Title, Me.Name, "Test", text1)


:drunken:


thx cu agm65

[Robert_G]

Zitat:

Zitat von VBA OH

SaveSetting Statement Example
The following example first uses the SaveSetting statement to make entries in the Windows registry (or .ini file on 16-bit Windows platforms) for the MyApp application, and then uses the DeleteSetting statement to remove them.

' Place some settings in the registry.
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Remove section and all its settings from registry.
DeleteSetting "MyApp", "Startup"

[agm65]

nein ich habe nicht gemeint ob es in visual basic geht sondern in delphi ??
das von mir ist der vb code !
also die frage nochmal gestellt für delphi !


danke !

[Luckie]

Kuck dir in der Hilfe mal TRegistry oder alternativ TIni an.

[agm65]

habe mir für die infi file entschieden und gleich weitere probleme :) ! achtung !

Write:

var ini: TIniFile;

ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+ 'config.ini');
ini.WriteString('Benutzer','Name','Hans Muster');


Read:
var ini: TIniFile;

ini:=TIniFile.Create('config.ini');
try
txtappdir.Text := ini.ReadString('Benutzer','Top',0);
finally
ini.free;
end;

jetzt sagt der mir was von wegen string und integer ,...hab es schon mit inttostr versucht geht
aber ich will ja keinen zahlenwert, ich hätte gerne den wert für meine textbox oder mache ich da was falsch ?

[supermuckl]

Delphi-Quellcode:

Write: 

var ini: TIniFile; 

ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+ 'config.ini'); 
ini.WriteString('Benutzer','Name','Hans Muster'); 
ini.free;

Read: 
var ini: TIniFile; 

ini:=TIniFile.Create('config.ini'); 
try 
txtappdir.Text := ini.ReadString('Benutzer','Top','0'); 
finally 
ini.free; 
end;

[Luckie]

Delphi-Quellcode:

ini:=TIniFile.Create('config.ini');

Und du meinst, er findet deine Ini-Datei wieder?

[agm65]

das frage ich dich ?

[Luckie]

Das war eine rhetorische Farge, die dich zum Nachdenken anregen soll. :roll:

[agm65]

vielleicht solle ich das ExtractFilePath(ParamStr(0))+
davor machen ?


okay dann sagt er mir was von wegen string und int

txtappdir.Text := ini.ReadString('Benutzer','Top',0); <- hierbei


aber mit inttostr bzw strtoint....geht es nicht ... ?? hier zu ne idee

[Willi Wacker]

Zitat:

ini.WriteString('Benutzer','Name','Hans Muster');
.
.
txtappdir.Text := ini.ReadString('Benutzer','Top',0);

Du speicherst unter "Name" und versuchst, unter "Top" zu lesen :warn:

[agm65]

auch ein blindes huhn findet irgendwann mal was....sorry jungs und danke ! :wall:

[Tpercon]

Zitat:

Zitat von agm65

txtappdir.Text := ini.ReadString('Benutzer','Top',0); <- hierbei

Der Fehler leigt an der Null, da muß ein String hin, den die Funktion zurück gibt, wenn der Ini Eintrag nicht gefunden wird.

[Benedikt]

Und wenn du ReadString einsetzt, ist der letzte Parameter auch ein String, weil dieser der Wert ist, der zurückgegeben wird, sollte der Wert nicht in der INI-Datei stehen.

[Plague]

Das müsste doch ganz einfach gehen!

Delphi-Quellcode:

var
Text: string;

begin
Text := Memo1.Text;
end;

Oder etwa nicht? So müsste das eigentlich möglich sein...

Mfg
Thomas :coder:

[FriFra]

So etwas wie der Fehler mit der 0 passieren nur, weil man in VB nichts deklarieren muss und die Typen verwenden kann wie man Lust und Laune hat :wall: ... VB animiert zu einem schlechten Programmierstiel. :warn:
Wenn Du in deinen VB Projekten "Declare Explicit" an den Anfang schreibst, zwingt dich VB wenigstens alles zu deklarieren... die automatischen Typumwandlungen (z.B. Test$ = 0 korrekt wäre eigentlich Test$ = CStr(0) ) kann man ja leider nicht abstellen...