Ayuda con Archivos de Texto!!

[roman]

Estás mezclando dos cosas:

• Leer el archivo
• Colorear las líneas en mayúsculas

Comenzaste este hilo preguntando cómo leer un archivo de texto y determinar si una línea está en mayúsculas o no. Después pasaste al tema del ListBox y no queda claro del todo claro su relación con el archivo.

Si el ListBox lo llenas con las líneas del archivo entonces no necesitas ningún TStringList aparte, basta que hagas:

Código Delphi [-]
ListBox1.Items.LoadFromFile('c:\prueba.txt');

La propiedad Items es ya un TStringList (más o menos).

Pero por otra parte recuerda: tú no pintas los elementos del ListBox, únicamente indicas bajo qué condiciones un elemento debe ir de un color u otro.

En el evento OnDrawItem no lees el archivo, ése ya lo leíste previamente. El parámetro Index indica el ítem que en esos momentos (cuando la VCL llama al evento) se va a dibujar y es cuando debes verificar si está en mayúsculas:

// Pseudo-código

Si el ítem con índice Index del ListBox está en mayúsculas entonces
  Cambiar propiedades de Canvas.Font y Canvas.Brush;

Imprimir la cadena

// Saludos

[Ariatna]

Hola Roman!, otra vez yo, Gracias por tú respuesta, creo que estaba muy perdida, pero ya reflexione gracias a tú guía. Ya me salio lo que quería hacer, y lo dejo aquí por si alguien quiere hacer algo como esto.



Muchas Gracias Roman!y un Saludo.

Código Delphi [-]
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin

with (Control as TListBox)do
 begin
  if  (AnsiUpperCase(ListBox1.Items.Strings[Index])=ListBox1.Items.Strings[Index]) then
   begin
      Canvas.Font.Color:=clNavy ;
      Canvas.Font.Style:=[fsBold];
      Canvas.Brush.Color:=$00DDDDDD;
   end
    else
       Canvas.Font.Color:=clBlack;
       Canvas.FillRect(Rect);
       Canvas.TextOut(Rect.Left,Rect.Top,Items[Index]);
     begin
     end;
 end;
  

end;

[roman]

Ariatna, me tomé la libertad de editar tu mensaje para añadir las etiquetas [delphi]. Cómo verás la diferencia es notable en cuanto a la presentación del código. Te sugiero que a partir de ahora las uses (entra a editar tu mensaje para que veas cómo) a fin de que a los demás nos sea fácil la lectura.

// Saludos