Add Problem

[Michael Springwald]

Hallo,<br>
Die Add-Anweisung unter Delphi löscht alle Leerzeichen die am Anfang<br>
Eines Strings stehen.Wie kann man dies umgehen<br>
Bitte mit Beispiel Anworten<br>
Gruß <b>Michael</b>

[Jens Schumann]

Hallo Michael,<br>
es gibt viele Objekte in der VCL mit einer Add Methode.<br>
Welche meinst Du denn ? Ein bißchen formtierter Source<br>
ist auch immer ganz hlifreich.<br>
Jens Schumann<br&gt

[Michael Springwald]

Ihr ist der der Code:<br>
var<br>
Tipps:TIniFile;<br>
y:Integer;<br>
str:String;<br>
begin<br>
Label1.Caption:=TreeView1.Selected.Text + ':';<br>
Memo1.ClearAll;<br>
Tipps:=TIniFile.Create(OpenTippsIni + 'Tipps.Ini');<br>
<br>
with Tipps do begin<br>
for y:=0 to ReadInteger(TreeView1.Selected.Text,'Maxi',0) do begin<br>
str:=ReadString(TreeView1.Selected.Text,'Tipp' + IntToStr(y),'' );<br>
Memo1.Lines.add( str )<br>
end;<br>
end;<br>
Tipps.Free;<br>
Memo1.SelStart:=0<br>
<br&gt

[Jens Schumann]

Hallo Michael,<br>
es leigt nicht an der Add-Methode, sondern an TInifile.<br>
ReadString ließt ab dem "=" Zeichen und unterdrückt alle Leerzeichen zwischen "=" und dem<br>
ersten "richtigen" Zeichen im String. Wahrscheinlich ist dafür die API Funktion GetPrivateProfileString verantwortlich.<br>
Wenn Du ein paar Leezeichen vor dem String benötigst, dann verwende als erstes Zeichen im String (in der Ini-Datei) z.B. das "#" Zeichen.<br>
Bevor Du den String via Add hinzufügst, prüfst Du, ob der String an Position [1] das "#" Zeichen enthält. Wenn ja, dann schreibst Du einfach<br>
str:=Copy(str,2,length(str)). Damit wird das erste Zeichen abgeschnitten.<br>
Jens Schumann<br&gt

[Michael Springwald]

Könnten Sie mir ein Beispiel schreiebn ? <br>
So kans verstehe ich das nicht

[Jens Schumann]

Hallo Michael,
schreibe z.B. in die Ini-Datei
<pre>
[Test]
Wert=# BlaBlaBla
</pre>
Jens Schuman

[Michael Springwald]

Danke!! Gibt es nicht noch eine Einfachrer lösung weil ich habe schon viele einträge in der Ini-datei<nr>
Gruß <b>Michael</b&gt

[Hagen Reddmann]

versuch mal

<pre>

var
S: TStringList;
begin
S := TStringList.Create;
try
IniFile.ReadSectionValues('MeinSection', S);
Memo.Lines.Add(S.Value['MeinItem']);
finally
S.Free;
end;
end

[Michael Springwald]

Danke werde ich ausprobieren

[Michael Springwald]

Hier ist der Code den ich geschierben habe dank ihres beispiels: <br> var <br>
S: TStringList;<br>
i:Integer;<br>
Tipp:TIniFile;<br>
begin<br>
Memo1.ClearAll;<br>
S := TStringList.Create;<br>
s.Clear;<br>
Tipp:=TIniFile.Create(OpenTippsIni + 'Tipps.ini');<br>
Label1.Caption:=TreeView1.Selected.Text + ':';<br>
try<br>
tipp.ReadSectionValues(GetToken(Label1.Caption,':' ,1), S);<br>
if S.Count > 0 then<br>
s.Delete( 0);<br>
<br>
for i:=0 to s.Count -1 do<br>
Memo1.Lines.Add( GetToken( S.Strings[i],'=',2 ) ); <br>
finally<br>
S.Free; <br>
end; <br>
<br> Aber er Löscht die LEERZEICHEN Trotsdem<br> Gruß <b>Michael</b&gt