combo box

[heiko]

Hi zusammen,
ich versuche gerade mir Delphi beizubringen.
Bei einigen Problemen schaff ich es dann auch nach einiger Zeit und viel probieren doch ne Lösung zu finden.
Aber jetzt brauch ich mal eure Hilfe.
Ich speichere bestimmte Einstellungen in *.vbd Dateien ab, beim laden dieser Dateien in eine Combo Box möchte
ich die Dateiextension abschneiden.
im Augenblick sieht das so aus

procedure TForm6.FormActivate(Sender: TObject);
var SR: TSearchRec;
s: string;
so: string;
begin
GetDir (0,ve);
if FindFirst(ve + ´\verbindung\*.vbd´,faAnyFile,SR)=0 then begin
repeat
if not listeDoppel(ComboBox1.Text,ComboBox1.Items) then
s:= SR.Name;
so:= copy(s,Length(s)-3,8);
Form6.ComboBox1.Items.Add(so);
until FindNext(SR)<>0;
FindClose(SR);
end;
end;

Jetz tauchen in der Combo Box aber nur die letzten 4 Zeichen auf die ich ja weggeschnitten haben will.
Ich hab auch schon mit &quot;delete&quot; herum experentiert aber da komm ich gar nicht weiter.
Für einen kleinen Denkanstoss wär ich sehr dankbar.
Heiko

[heiko]

Anstelle des Smilies steht eigentlich eine 8
Heiko

[Felix Kaiser]

Angenommen du hast im String S den Dateinamen, dann kannst du das mit folgendem Code ganz einfach so ändern, dass die Dateierweiterung abgeschnitten wird:

SetLength(s,Length(s)-Length(ExtractFileExt(s)));

[heiko]

Hi Guru,
erst mal Danke, funzt prima.
Hast Du vieleicht irgendwo nen Pieper wenn eine Nachricht erstellt wird? Die Antwort war ja fast schneller
da wie mein Browser neu laden konnte.
Super
Heiko

[cYrus]

kennste schon unseren Chat?- denke ned, aber schau doch mal rein, dann wirste auch unseren Pieper sehen :D

greez
cYrus