Opet nisi inicijalizovao varijablu I pre petlje
Lista := TStringList.Create;
Lista.LoadFromFile('temp.txt');
i := 0;
while i < Lista.count do
begin
if pos('QWE', lista[i]) > 0 then
lista[i] := copy(lista[i], 1, pos('QWE', lista[i]) -1);
inc(i);
end;
Inace, ukoliko ti je unapred poznato koliko krugova petlja treba da se izvrsi, onda je mozda zgodnije koristiti FOR petlju.
WHILE je zgodna ukoliko ti je potrebno da uslov petlje menjas u toku izvrsavanja same petlje.
Lista := TStringList.Create;
Lista.LoadFromFile('temp.txt');
for i := 0 to Lista.count -1 do
begin
if pos('QWE', lista[i]) > 0 then
lista[i] := copy(lista[i], 1, pos('QWE', lista[i]) -1);
end;
Imas jos jednu potencijalnu gresku - fajl 'temp.txt' trazis po relativnoj putanji koja se inace izracunava u odnosu na sadrzaj varijable CurrentDir.
Po startovanju programa, CurrentDir pokazuje na folder u kojem je tvoj program, ali ce se menjati ukoliko tvoj program pristupa razlicitim folderima na kompu.
|