Delphi, string z memo do tablicy ?

Helloł, tak pisze sobię spamera i kminię jak tu z tekstu z memo zrobić tablicę, tak by każda nowa linijka to był kolejny rekord.

mam sobie memo a w nim
Abix Trungery
Acaneimu Arch
Adwenson
Albert Sherman
Albin Bror
Alees Seth
Alihancko
Aludurana
Amena Witch
Americtor
Angel Of Disease

jedno pod drugim, jak to teraz ubrać w tablicę tak, żebym każdy nick miał w kolejnym elemencie tablicy czyli
x[0]:='Abix Trungery';
x[1]:='Acaneimu Arch';
x[2]:='Adwenson';

i tak dalej i tak dalej ( po prostu wklejam sobie listę postaci z tibja.kom i mam z tego tablicę z listą postaci =D

(wygląd stringa z memo to chyba tekst<enter>tekst<enter>tekst)

O ile dobrze pamiętam (pisałem w Delphi >5 lat temu), memo było kontrolka textowa, oraz miała właściwość Lines.

//pseudocode on
for (int i = 0; i < 100; ++i)
{
memo.Lines[i] = "asdf";
}
//pseudocode off

On chce odwrotna sytuacje.

//pseudocode on
tablica[255]:string
for (int i= 0; i< memo.countLines; i++)
{
tablica[i] = memo.Lines[i].text;
}
//pseudocode off

Nie pamietam oczywiscie nazw konkretnych, ale z tym juz sobie poradzisz :P

:)

dobra, mam takie coś

Kod:

---

var
tablica : array[1..500] of string;
i:integer;
begin
for i:= 1 to memo1.lines.count
do
tablica[i]:= memo1.Lines[i];
ShowMessage(tablica[i]+'test')
end;

---

ale kurde nie wywala mi tego co mam w memo ; (

tablica[i]:= memo1.Lines[i].Text; //albo text
ShowMessage(tablica[i]+'test')

Cytuj:

---

szulak napisał

tablica[i]:= memo1.Lines[i].Text; //albo text
ShowMessage(tablica[i]+'test')

---

[Error] Unit1.pas(34): Record, object or class type required

według googla, memo.lines[numer_lini_do_odczytania] czyli tak jak mam ;/

A delphi nie jest przypadkiem case sensitive?

Kod:

---

for i:= 1 to memo1.lines.count

---

vs

Kod:

---

tablica[i]:= memo1.Lines[i];

---

@BBsrv ;
A jak dasz tak?

Kod:

---

var
tablica : array[1..500] of string;
i:integer;
begin
for i:= 1 to memo1.lines.count
do
ShowMessage(memo1.Lines[i]);
end;

---

Cytuj:

---

Absherr napisał

A delphi nie jest przypadkiem case sensitive?

Kod:

---

for i:= 1 to memo1.lines.count

---

vs

Kod:

---

tablica[i]:= memo1.Lines[i];

---

---

nie ma różnicy ;p

Cytuj:

---

Absherr napisał

@BBsrv ;
A jak dasz tak?

Kod:

---

var
tablica : array[1..500] of string;
i:integer;
begin
for i:= 1 to memo1.lines.count
do
ShowMessage(memo1.Lines[i]);
end;

---

---

no fakt, tak działa, bez użycia tablicy, dzięki @Absherr ;

Kod:

---

var
i:integer;
begin
for i:= 0 to memo1.lines.count-1
do
ShowMessage(memo1.Lines[i]);
end;

---

for i:=0 to memo1.lines.count-1 daj

Cytuj:

---

LordCompi napisał

for i:=0 to memo1.lines.count-1 daj

---

nie wiem czy wiesz, ale nad Twoim postem właśnie tak dałem XD

Cytuj:

---

BBsrv napisał

dobra, mam takie coś

Kod:

---

var
tablica : array[1..500] of string;
i:integer;
begin
for i:= 1 to memo1.lines.count
do
tablica[i]:= memo1.Lines[i];
ShowMessage(tablica[i]+'test')
end;

---

ale kurde nie wywala mi tego co mam w memo ; (

---

Tutaj jest błąd.

Z tego co pamiętam, to powinienes miec chyba po
for ... do

zrobic
for ... do
begin
...
endl;

Bo wyszlo na to, ze przepisales wszystko do tablicy, i pozniej tylko raz wyswietlasz tablice, z blednym adresem, bo zmienna i juz nie istnieje (wyszedles z petli ktora skladala sie z 1 instrukcji)

Przepisz tak:

Kod:

---

var
tablica : array[1..500] of string;
i:integer;
begin
for i:= 1 to memo1.lines.count
do
begin
tablica[i]:= memo1.Lines[i];
ShowMessage(tablica[i]+'test');
end;
end;

---

No chyba ze tak bylo w pascalu a w delphi to zmienili. Nie mam kompilatora to nie sprawdze ;p

Cytuj:

---

Bazan napisał

Tutaj jest błąd.

Z tego co pamiętam, to powinienes miec chyba po
for ... do

zrobic
for ... do
begin
...
endl;

Bo wyszlo na to, ze przepisales wszystko do tablicy, i pozniej tylko raz wyswietlasz tablice, z blednym adresem, bo zmienna i juz nie istnieje (wyszedles z petli ktora skladala sie z 1 instrukcji)

Przepisz tak:

Kod:

---

var
tablica : array[1..500] of string;
i:integer;
begin
for i:= 1 to memo1.lines.count
do
begin
tablica[i]:= memo1.Lines[i];
ShowMessage(tablica[i]+'test');
end;
end;

---

No chyba ze tak bylo w pascalu a w delphi to zmienili. Nie mam kompilatora to nie sprawdze ;p

---

Zgadza się, działa ^^ lecz wystarczy mi jednak :

Kod:

---

var
i:integer;
begin
for i:= 0 to memo1.lines.count-1
do
ShowMessage(memo1.Lines[i]);
end;

---

stwierdziłem, żę tablica jakoś za specjalnie nie jest mi potrzebna, ale dzięki ; )