Leer cada linea de un memo y como determinar si llego al final

[douglas]

gracias por la ayuda y perdon que abuse pero si quisiera guardar cada linea en un vector, caracter por caracter, como lo harian, perdon chikos por las molestias

[ContraVeneno]

como dije en el hilo donde iniciaste:

¿como has intentado hacerlo tu?

[[ArdiIIa]]

Entendiendo por un vector un array, podemos decir que un string en sí, es un array de caracteres, de tal modo que se podría recorrer el string/array también mediante un bucle.
No obstante, tal vez debería indicar o concretar que es lo que quieres hacer...

[douglas]

mira pues quisiera meter, la primera linea en un array, para hacer lo siguiente:

letras={a,b,c,d,e,f}

suponiendo que esta es la primer linea, quiero hacer esto grabar solo lo que esta dentro de las llaves y que el array se llame como la palabra que esta detras del igual.

es lo unico que tengo pensado, y no e intentado nada mas porque apenas y me inicion en delphi, pero es una solucion no.

porfa ayudenme muchachos

[[ArdiIIa]]

Bueno, pues veo que ya tenías esta pregunta por otro hilo y a pesar de las respuestas que te han dado, parece que no has evolucionado mucho en tu pregunta.

Visto que mas o menos ya sabes como tratar las líneas de un Memo, ahora te recomiendo que leas sobre el tratamiento de cadenas y manejo de arrays.

No solamente se aprende preguntando, a veces, también es bueno intentarlo.

Me remito a la pregunta de egostar ??

[douglas]

ok mira probe hacer esto ahorita

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
area:array[1..15] of string;
begin
for i:=0 to memo1.Lines.Count-1 do
begin
      area[i]:=memo1.Lines[i];
end;
 edit1.Clear;
 edit1.Text:=area[1];
end;

segun yo me tendria que haber insertado el texto de la linea 1 en el edit, pero no fue asi

[ContraVeneno]

yo y mi bocota... dije puras mentiras porque tuve uno de esos momentos llamados "lapsus brutus"...

el problema es que me esta sucediendo muy seguido ultimamente...


en fin..
si no te insertó la linea 1

¿que fue lo que puso?

[douglas]

no hay pena contraveneno

mira ya pude pero suceque me lee todo el memo, pero necesito que me lea una linea primero y luego otra, te muestro el codigo

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
area:array[1..15] of string;
begin
for i:=0 to memo1.Lines.Count-1 do
edit1.Clear;
edit1.Text:=memo1.Lines.GetText;
end;

pero de esta manera me lee todo el memo, io necesito ordenarle que lo haga linea por linea.

[[Lepe]]

Empezado por douglas

ok mira probe hacer esto ahorita

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
area:array[1..15] of string;
begin
for i:=0 to memo1.Lines.Count-1 do
begin
      area[i]:=memo1.Lines[i];
end;
 edit1.Clear;
 edit1.Text:=area[1];
end;

segun yo me tendria que haber insertado el texto de la linea 1 en el edit, pero no fue asi

Ojito con ese código amigo mio. El array empieza en el índice 1, mientras que el memo empieza en el índice cero, por tanto, la primera vez que entra en el bucle:
i = 0
area[0] := memo.lines[0]
eso debería dar un error de esos que asustan , ya que estas escribiendo en "area" en un índice que no existe.

La solución más fácil : var area:array[0..15] of string;

Código Delphi [-]
....
 edit1.Clear;
 edit1.Text:=area[0];
end;

Ahora si funciona como esperabas, ¿verdad?

Saludos

[douglas]

gracias lepe buena onda, me funciono re bien el codigo me queda asi

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
area:array[1..15] of string;
begin
for i:=0 to memo1.Lines.Count-1 do
begin
area[i+1]:=memo1.Lines[i];
end;
end;

bueno ahora ya sabemos que cada linea del memo esta en cada variable del array.

pero ahora te vuelvo a molestar con otra pregunta:

a[1]:='hola'
suponiendo que lo anterio fue capturado en la primer linea del memo, pero ahora eso lo quiero pasar a otro array pero de esta forma

b[1]:='h';
b[2]:='o';
b[3]:='l';
b[4]:='a';

existen algun modo???? ayudenme si