Ersten Buchstaben im String grossschreiben ..

[Hugo]

Huhu,

Ich habe einen String und möchte nun den ersten Buchstaben grossschreiben ..

Code:

procedure TForm1.Button2Click(Sender: TObject);

var

  a,b: string;

  i: integer;

begin

ListBox2.Items.BeginUpdate;

  For i:= 0 to ListBox1.items.count -1 do begin

    a := ListBox1.Items[I];

    a[1] := Upcase (a[1]);

    ListBox2.Items.Add(a);

  end;

  ListBox2.Items.EndUpdate;

end;

Normalerweise geht es es kommt auch nur manchmal nen Error, weiss jemand woran das liegt ? (nen sonderfall?)

Gruss
Hugo

[Thomas Stutz]

Hi,

Wenn ListBox1.Items resp dann a ein leerer String ist,
gibt's eine AV, wenn du auf den ersten String mit a[1] zugreifen möchtest.
Du musst also überprüfen, ob ListBox1.Items <> '' ist

[Hugo]

Huhu,

a[1] := Upcase (a[1]);
Das war der falsche Source .. der geht net .. ne Idee ?

Gruss
Hugo

P.s.: Ich habe das If (a <> '') or (a <> ' ') then davorgesetzt ..

[Schuggi]

zum Beispiel so:

 

Code:

s:=uppercase(s[1])+copy(s,2,100);

gruß Schuggi

[Hugo]

Jo, danke .. aber es kommt immernoch Zugriffsverletzung bei Adresse xxx ...

Gruss
Hugo

[Schuggi]

Aber nur wenn s='' ist also die Abfrage

if s<>''

musst du schon davorsetzen !

Gruß Schuggi

[Hugo]

P.s.: Ich habe das If (a <> '') or (a <> ' ') then davorgesetzt ..

Ist schon dran gedacht ... klappt aber trotzdem net :(

Gruss
Hugo

[katjah]

Mach mal aus a einen ShortString.

[Hugo]

Habsch probiert, es kommt aber immernoch der Error ...

Code:

   a := Shortstring(ListBox1.Items[I]);

    If (a <> '') or (a <> ' ') then a:=uppercase(a[1])+copy(a,2,100);

Gruss
Hugo

[katjah]

Du sollst a als ShortString deklarieren:


var

   a : shortstring;


Deine Änderung ist überflüssig.

[marian19]

Habsch probiert, es kommt aber immernoch der Error ...

Code:

   a := Shortstring(ListBox1.Items[I]);

    If (a <> '') or (a <> ' ') then a:=uppercase(a[1])+copy(a,2,100);

Gruss
Hugo

fals a =' '  wird trotzdem dein code ausgefurt.
du must and gebrauchen statt or

[Schuggi]

Code:

(a <> ' ')

kannst du dir ganz sparen da uppercase(a[1]) an a[1] nichts ändert.

uppercase kann mit allen normalen Zeichen richtig umgehen !

Gruß Schuggi