string umwandeln

[Gehstock]

also ich habe ein Tedit in dem (7,5,1,3,0,2,14,161,162,164,4) ausgegeben wird
nun will ich aber das statt dessen DE,EN u.s.w. dasteht
ich weiß z.b. das die 0 deutsch ist und die 1 englisch u.s.w.
wie kann ich das am besten umsetzen

[Prototypjack]

Moin!

Such mal in der Delphi Hilfe nach StrReplace, bzw. StringReplace.

Gruß,
Max

[blablab]

Wenn du StringReplace benutzt solltest du aber auch nach den Kommas suchen, weil sonst 10 durch EnDE ersetzt wird...

[Robert Marquardt]

Ich vermute er will die Zuordnung von 1 -> EN haben.
Anmerkung: 0 ist nicht deutsch sondern die aktuelle Sprache des Systems.
Ich bin jetzt nicht ganz sicher ob diese Strings ueberhaupt alle erhaeltlich sind. Es kann sein das das Windows diese Strings garnicht enthaelt oder das sie nur fuer die installierten Sprachunterstuetzungen erhaeltlich sind.

[Gehstock]

es geht um dieses problem siehe angehängtes bild

ok habs hinbekommen

Delphi-Quellcode:

lang := StringReplace(lang, '(', ',', []);
  lang := StringReplace(lang, ')', ',', []);
  lang := StringReplace(lang, ',0,', ',Deutsch,', []);
  lang := StringReplace(lang, ',1,', ',English,', []);

[Gehstock]

Und wie bekomme ich jetzt hin das erkannte Sprachen einer Combobox zur Auswahl zugefügt werden
so wie unten werden ja alle hinzugefügt

Delphi-Quellcode:

  lang := StringReplace(lang, '(', ',', []);
  lang := StringReplace(lang, ')', ',', []);
  lang := StringReplace(lang, ',0,', ',Deu,', []);            LangSelect.Items.Add('Deutsch');
  lang := StringReplace(lang, ',1,', ',En,', []);             LangSelect.Items.Add('Englisch');
  lang := StringReplace(lang, ',2,', ',Ita,', []);            LangSelect.Items.Add('Italienisch');
  lang := StringReplace(lang, ',3,', ',Fr,', []);             LangSelect.Items.Add('Französisch');
  lang := StringReplace(lang, ',4,', ',Esp,', []);            LangSelect.Items.Add('Spanisch');
  lang := StringReplace(lang, ',5,', ',Ned,', []);            LangSelect.Items.Add('Holländisch');
  lang := StringReplace(lang, ',6,', ',Swe,', []);            LangSelect.Items.Add('Schwedisch');
  lang := StringReplace(lang, ',7,', ',Dan,', []);            LangSelect.Items.Add('Dänisch');
  lang := StringReplace(lang, ',8,', ',Por,', []);            LangSelect.Items.Add('Portogisisch');
  lang := StringReplace(lang, ',9,', ',Fin,', []);            LangSelect.Items.Add('Finnisch');
  lang := StringReplace(lang, ',10,', ',Nor,', []);           LangSelect.Items.Add('Norwegisch');
  lang := StringReplace(lang, ',11,', ',Gre,', []);           LangSelect.Items.Add('Griechisch');
  lang := StringReplace(lang, ',12,', ',Tür,', []);           LangSelect.Items.Add('Türkisch');
  lang := StringReplace(lang, ',13,', ',Ung,', []);           LangSelect.Items.Add('Ungarisch');
  lang := StringReplace(lang, ',14,', ',Pol,', []);           LangSelect.Items.Add('Polnisch');
  lang := StringReplace(lang, ',32,', ',Tsk,', []);           LangSelect.Items.Add('Tschechisch');
  lang := StringReplace(lang, ',142,', ',Est,', []);          LangSelect.Items.Add('Eestisch');
  lang := StringReplace(lang, ',154,', ',Lat,', []);          LangSelect.Items.Add('Lettisch');
  lang := StringReplace(lang, ',155,', ',Lie,', []);          LangSelect.Items.Add('Litauisch');
  lang := StringReplace(lang, ',162,', ',Rus,', []);          LangSelect.Items.Add('Russisch');
  lang := StringReplace(lang, ',173,', ',Ukr,', []);          LangSelect.Items.Add('Ukrainisch');
  lang := StringReplace(lang, ',161,', ',Rom,', []);          LangSelect.Items.Add('Romänisch');
  lang := StringReplace(lang, ',164,', ',Slo,', []);          LangSelect.Items.Add('Slovenisch');